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ASMS5 and K065 are software programs written in BASIC 
PLUS language and run on a PDP-11/34 computer. The ASM 65 is 
an assembler and KO 65 is a simulator. 

ASM 65 allows the user to create the 6502 assembly 
language source program. The system is equipped with helpful 
error messages. 

K065 simulator will execute the 6502 operation code 
which is generated by the assembler. The simulator also 
allows the user to easily debug his program through features 
such as: tracing, single-stepping, and breakpoint. 
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CHAPTER I 


INTRODUCTION 

1.1 BACKGROUND 

An assembly language allows the user to be directly 
related to the hardware of a given computer. In addition to 
allowing the user to exploit the structure of the computer 
in developing efficient software, assembly languages also 
serve as an educational tool for a beginner to get acquaint¬ 
ed with the hardware of a given computer system. 

The author's experience with small machines had 
indicated that running assembly language programs on mini 
and microcomputers without well defined support software 
libraries, requires considerable insight into the hardware 
of the computer system being used. Lack of support software 
can prove extremely frustrating to the beginner who wishes 
to use assembly language in a small computer system.' 

The development and debugging of software for new 
processor-based systems is frequently done with the aid of a 
simulator, which is a program running on a host computer 
having the property of simulating the instruction set and 
the programming model of the new or target processor. After 
the software is initially debugged using the simulator, 
further debugging of the software system is done with the 
aid of debug programs and various software facilities that 


2 


provide breakpoint, single-stepping, and other capabilities. 

A simulator of a microcomputer system that runs on a 
large machine has basic advantages. The large system should 
have extensive software support. In ill-configured micro¬ 
computer systems, hardware problems could cause programming 
errors. However, in the case of a simulator, if a user ! s 
program does not work, it is due to a programming error and 
not the fault of the host computer. Further, a good simula¬ 
tor possesses debug features that even the real microcom¬ 
puter system does not support. 

With the introduction of microprocessor development 
systems, a new tool has been made available to the designer 
in the form of the microprocessor simulator. Today’s 
simulators combine many powerful software development tools 
into one convenient, easy-to-use system and greatly facili¬ 
tates the process of integrating the hardware and software 
components of newly developed microprocessor-based systems. 

The advantages of using a simulator include the 
ability to load the newly developed programs into the 
simulation memory and execute these programs in the develop¬ 
ment cycle. It also includes the ability td debug software 
under controlled conditions as it can run, halt, and single- 
step the processor as well as examine the register and 
memory contents. 

1.2 OBJECTIVE 

The objective of this thesis is to simulate the 6502 
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microprocessor using the BASIC-PLTJS language software of the 
PDP-11/34. It will help users run 6502 assembly language by 
first creating the assembly source program in EDIT mode* 

The assembler, ASM65^, will convert the assembly program to 
machine language and the simulator, KO 65 , will execute the 
program. This feature will allow users to debug and study 
their programs. 

The ASM 65 and KO 65 software programs are written in 
BASIC-PLUS language and are compatible, with some modifica¬ 
tion, to any computer which has a BASIC interpreter and 
enough memory space. The interactive time sharing system 
RSTS/E operating system on PDP-11 model 34 was used for this 
design. 

The author used the EDIT software program that 
already exists in the PDP-11 minicomputer as a matter of 
convenience and to increase the capability of debugging the 
source program. Thus, the user can easily create his pro¬ 
gram and in case of any error during assembly time he can 
correct the program, using EDIT mode. ASM 65 is an assembler 
that has been modified due to the different BASIC Interpret¬ 
er of the PDP-11/34. The error messages have also been 
designed to inform the user of all syntax errors at the end 

of assembly time. The user will then go back to the EDIT 
mode for error correction. The last part of this system is 
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the K065, which is 3 simulator. The simulator is a program 
which can accept different commands, such as: display 
register and memory contents, single-step the program, etc., 
in order to execute the 6502 microprocessor instruction set. 












CHAPTER IT 


6502 MICROPROCESSOR AND PERIPHERAL DEVICE (6520) 

2.1 INTRODUCTION 

The past several years have seen the development of 
an exciting new concept in electrical design. The micro¬ 
computer started out as a relatively simple, difficult-to- 
use, programmable device capable of handling simple control 
or computational problems. However, it has since matured 
into a powerful, inexpensive, easy-to-use device capable of 
controlling all but the most complex of systems. 

Conventional system design is rspidly being revolu¬ 
tionized by the component that forms the heart of the micro¬ 
computer-the large scale, single-chip, programmable 

microprocessor (CPU). 

The success of the microprocessor is based on the 
fact that it permits the design engineer and programmer to 
a Pply their expertise in solving a multitude of design 
problems. A small number of large integrated circuits can 
be configured to solve design problems from the simplest to 
the most complex. 

2.2 SIGNAL LINES 

Figure 2-1 summarizes the pinouts of the 6502 CPU. 
These pins and their uses in microcomputer systems are 
discussed separately below. 
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2.2.1 ADDRESS BUS (AB00-AB15) 

The Address Bus buffers on the 6502 microprocessor 
8 re push/pull type drivers capable of driving at least 130 
PP and one standard TTL load. 
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Figure 2-1 6502 Pinout Designation 

The addressing technique involves putting an address 
on the Address Bus which is known to be either in program 
sequence, on the same page in program memory, or at a known 
point in RAM. 

The address is valid 300 ns (at 1 MHZ clock rate) 
into the 01 clock pulse and remains stable until the next 
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01 pulse* 

2*2.2* DATA BUS (DB0-DB7) 

All instruction and data transfers between the pro¬ 
cessor and memory take place over the bidirectional data 
lines. The buffers driving the data bus lines have full 
"three-state” capability* 

Each data bus pin is connected to an input and an 
output buffer, with the output buffer remaining in the 
"floating” condition except when the processor is trans¬ 
ferring data into or out of one of the support chips* 

2.2*3 READ/WRI TE ( RA r ) 

The read/write line allows the processor to control 
the direction of data transfer between the processor and the 
support chips e.g. memory (ROM, RAM), I/O interface, etc. 

This line is high except when the processor is writing to 
memory or to a peripheral interface device. 

2.2.4 READY (RDY) 

The RDY input delays execution of any cycle during 
which the RDY line is pulled low. 

The primary purpose of the RDY line is to delay 
execution of a program fetch cycle until data are available 
from memory. 

The RDY function will not stop the processor in a 
cycle in which a WRITE operation is being performed. 
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2.2,5 NON-MASKABLE INTERRUPT (NMI) 

The NMI input, when in the interrupted state, always 
interrupts the processor after it completes the instruction 
currently being executed. This interrupt is not "markable” 
e.g., there is no way for the processor to prevent recogni¬ 
tion of the interrupt. 

The NMI input responds to a negative transition. 

The NMI signal must be low for at least two clock cycles for 
the interrupt to be recognized, whereupon, new program count 
vectors are fetched. 

2.2.6 INTERRUPT REQUEST (Trq) 

The interrupt request (IRQ) responds in much the 
same manner as NMI. However, this function can be enabled 
or disabled by the interrupt inhibit bit in the processor 
status register. As long as the I flag (interrupt inhibit 
flag) is a logic 1, the signal on the IRQ pin will not 
affect the processor. 

The IRQ pin is not edge-sensitive. Instead, the 
processor will be interrupted as long as the I flag is a 
logic "0" and the signal on the IRQ input is at GND. 

Because of this, the IRQ signal must be held low until it 
is recognized. To assure that the processor will not rec¬ 
ognize.- the interrupt more than once, the I flag is set 
automatically during the last machine cycle before the 
processor begins executing the interrupt software, begin¬ 
ning with the fetch of program count. 
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2.2.7 RESET (RES) 

The RES line is used to initialize the microprocessor 
from a power-down condition. It may also be used to reset 
the system after power-up time. During the power-up time 
this line is held low internally, and writing from the micro¬ 
processor is inhibited. When the line goes high, the micro¬ 
processor will delay 6 cycles and then fetch the new program 
count vector from specific location in memory. This is the 
start of the user’s code. 

2.2.8 SYNCHRONIZATION SIGNAL (SYNC) 

In the 6502, a SYNC signal is provided to identify 
those cycles in which the processor is doing an Opcode 
fetch. The SYNC line goes high during phase 1 clock pulse 
of an Opcode fetch and stays high for the remainder of that 
cycle. 

2.2.9 SET OVERFLOW (S.O.) 

This pin sets the overflow flag on a negative tran¬ 
sition from TTL one to TTL zero. This is designed to work 
with a future I/O part and should not be used in normal 
applications. 

2.2.10 POWER LINES (Vcc, Vss) 

The Vcc and Vss pins are the only power supply con¬ 
nections to the chip. The supply voltage is + 5.0V DC + 


2.3 FUNCTIONAL FEATURES OF THE 6502 MICROPROCESSOR 










10 


A block diagram of the basic architecture is shown 
in Figure 2-2. This section begins with an analysis of this 
block diagram, discussing the function of the various regis¬ 
ters, data paths, etc. A detailed discussion of the opera¬ 
tion of the various pins on the chip has been described. 

The internal organization of the processor can be 
split into two sections. In general, the instructions 
obtained from program memory are executed by implementing 
a series of data transfers in one section of the chip 
(register section). The control lines which actually cause 
the data transfers to take place are generated in the other 
section (control^section). Instructions enter the processor 
on the data bus, are latched into the instruction register, 
and are then decoded along with timing signals to generate 
the register control signals. 

The timing control unit keeps track of the specific 
cycle being executed. This unit is set to "T0” for each 
instruction fetch cycle and is advanced at each phase one 
clock pulse. Each instruction starts in "T0" and goes to T1, 
T2,T3, etc. for as many cycles as are required to complete 
execution of the instruction. Each data transfer, etc., 
which takes place in the register section is caused by 
decoding the contents of both the instruction register and 
the timing counter. 

Additional control lines which affect the execution 
of the instructions are derived from the Interrupt logic and 
from the Processor Status register. The Interrupt logic 
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Figure 2-2 6502 Internal Architecture 

controls the processor interface to the interrupt inputs to 
assure proper timing, enabling, sequencing, etc. which the 
processor recognizes and services. 
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The Processor Status register contains a set of 
latches which serve to control certain aspects of the pro¬ 
cessor arithmetic and logic operations, and to indicate the 
status of data either generated by the processor or trans¬ 
ferred into the processor from outside. 

Since the real work of the processor is carried on 
in the register section of the chip, a detailed study will 
be made of this section. It comprises the following com¬ 
ponents: 

* Data Bus Buffers 

* Input Data Latch (DL) 

* Program Counter (PCL,PCH) 

* Accumulator (A) 

* Arithmetic Logic Unit (ALU) 

* Stack Pointer (S) 

* Index Registers (X,Y) 

* Address Bus. Latches (ABL,ABH) 

* Processor Status Register (P) 

Figure 2-3 summarizes the Processor Programming 

Model for the 6502. 
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INOEX REGISTER 
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Figure 2-3 Programming Model 6502 
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At 1 MHZ, the data which goes into the processor 
from the program memory, the data memory, or from peripheral 
devices, appear on the data bus during the last 100 ns of 
phase 2 clock pulse. No attempt is made to actually operate 
on the data during this short period. Instead, it is simply 
transferred into the input data latch for use during the next 
cycle. The data latch serves to trap the data on the data 
bus during each phase 2 clock pulse. The data can then be 
transferred onto one of the internal busses, and from there 
into one of the internal registers. If an arithmetic or 
logic operation is to be performed, using the data from 
memory and the- contents of the accumulator, data at the 
input data latch will be transferred onto the internal data 
bus as previously described. Prom there it will be trans¬ 
ferred into the ALU. At the same time, the contents of the 
accumulator will be transferred onto a bus in the register 
section and from there into the second input to the ALU. 

The results of the arithmetic or logic operation will be 
transferred back to the accumulator on the next machine 
cycle by transferring first onto the bus and then into the 
accumulator. All of these data transfers take place during 
the phase 1 clock pulse. 

The program counter (PCL,PCH) provides the addresses 
which step the processor through sequential instructions in 
the program. Sach time the processor fetches an instruction 
from program memory, the contents of PCL are placed on the 
low-order 8 bits of the address bus and the contents of PCH 








are placed on the high-order 8 bits. This counter is incre¬ 
mented each time an instruction or data is fetched from 
program memory. 


The Accumulator is a general-purpose 8 bit register 
which stores the results of most arithmetic and logic opera¬ 
tions. In addition, the Accumulator usually contains one of 
the two data words used in these operations. 


Stack Pointer 



Figure 2-4 6502 Data Path 

All logic and arithmetic operations take place in 
the ALU; this includes incrementing and decrementing of 
internal registers (except PGL and PCH). However, the ALU 
cannot store data for more than one machine cycle; if data 
are placed on the inputs to the ALU at the beginning of one 
cycle, the result is always gated into one of the storage 
registers or to external memory during the next machine 
cycle. Each bit of the ALU has two inputs. These inputs 
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can be tied to various internal busses or to a logic zero,* 
the ALU then generates the SUM, AND, OR, ETC. function using 
the data on the two inputs. 

The Stack Pointer (S) and two Index Registers (X and 
Y) each consist of 8 simple latches. These registers store 
data which are to be used in calculating addresses in data 
memory. The data path of the 6502 is given in Figure 2-4. 

The Address Bus Buffers (ABL,ABH) consist of a set 
of latches and also TTL compatible drivers. These latches 
store the addresses which are used in accessing the periph¬ 
eral devices (ROM,RAM, and I/O). 

2.4 DEVICE TIMING (TIME-BASE GENERATION) 

The 6502 can be used with an externally generated 
time base consisting of either a TTL-level single-phase 
clock, crystal oscillator, or RC network. 

Figures 2.5> 6 and 7 show the configuration for set- -• 
ting the frequency of oscillation with a crystal or with an 
RC network. 



Figure 2-5 6502 Parallel Mode Crystal Controlled Oscillator 
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Figure 2-6 6502 Series Mode Crystal Controlled 

Oscillator 



Figure 2-7 6502 Time Base Generator-RC Network 


2.5 INSTRUCTION SET 

Table 2-1 is a summary of the 6502 Instruction Set 


in alphabetical order. 
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TABLE 2-1 6502 MICROPROCESSOR INSTRUCTION SET 

ALPHABETIC SEQUENCE 


ADC Add Memory to Accumulator with Carry 


ANO 

“AND” Memory with Accumulator 

ASL 

Shift Left One Bit (Memory or Accumulator) 

BCC 

Branch on Carry Clear 

BOS 

Branch on Carry Set 

BEQ 

Branch on Result Zero 

BIT 

Test Bits in Memory with Accumulator 

BMJ 

Branch on Result Minus 

BNE 

Branch on Result not Zero 

BPL 

Branch on Result Plus 

BRX 

Force Break 

BVC 

Branch on Overflow Clear 

BVS 

Branch on Overflow Set 

CLC 

Gear Carry Rag 

CLD 

Gear Decimal Mode 

CL! 

Gear Interrupt Disable Bit 

CLV 

Gear Overflow Rag 

CMP 

Compare Memory and Accumulator 

CPX 

Compare Memory and Index X 

CPY 

Compare Memory and Index Y 

DEC 

Decrement Memory by One 

DEX 

Decrement Index X by One 

DEY 

Decrement Index Y by One 

EOR 

“Exclusive-Or" Memory with Accumulator 

INC 

Increment Memory by One 

INX 

Increment Index X by One 

INY 

increment index Y by One 

JMP 

Jump to New Location 


JSR Jump to New Location Saving Return Address 

LDA Load Accumulator with Memory 

LDX Load Index X with Memory 

LDY Load Index Y with Memory 

LSR Shift Right One Bit (Memory or Accumulator) 

NOP No Operation 

OftA "OR" Memory with Accumulator 

PHA Push Accumulator on Stack 
PHP Push Processor Status on Stack 
PLA Pull Accumulator from Slack 
PLP Pull Processor Status from Stack 

ROL Rotate One Bit Left (Memory or Accumulator) 
ROR Rotate One Bit Right (Memory or Accumulator) 
RTt Return from Interrupt 
RTS Return from Subroutine 

SBC Subtract Memory from Accumulator with Borrow 

SEC Set Carry Flag 

SED Set Decimal Mode 

SEI Set Interrupt Disable Status 

STA Store Accumulator in Memory 

STX Store Index X in memory 

STY Store Index Y in memory 

TAX Transfer Accumulator to Index X 
TAY Transfer Accumulator to Index Y 
TSX Transfer Stack Poin ter to Index X 
TXA Transfer Index X to Accumulator 
TXS Transfer Index X to Stack Pointer 
TYA Transfer Index Y to Accumulator 


2.6 652Q PERIPHERAL INTERFACE ADAPTER (PIA) 

The 6520 is a versatile I/O chip which is called a 
Peripheral Interface Adapter, or PIA. It acts as an inter¬ 
face between the microprocessor and peripherals such as 
printers, displays, keyboards, etc. The prime function of 
the 6520 is to respond to stimuli from each of the two worlds 
it is serving. On the one side, the 6520 is interfacing with 
peripherals via two 8 bit bidirectional peripheral data parts. 
On the other side, the device interfaces with the micropro- 
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cessor through an 8 bit data bus. It is, therefore, simplest 
to view the basic function of the 6520 using Figure 2-8. In 
addition to the lines described, the 6520 provides four inter¬ 
rupt input/peripheral control lines and the logic necessary 
for simple, effective control of peripheral interrupts. 


MICROPROCESSORS 

R4S00 





CONTROL 


' » BIT 
DATA PORT 


* BIT 
DATA PORT 


CONTROL 


PERIPHERAL 
DEVICES - 
PRINTERS. 
DISPLAYS. ETC. 


J ■ 


Figure 2-8 6520 Interface Diagram 

Figure 2-9 shows the 6520 pinout designations for the Pe¬ 
ripheral Interface Adapter. 

The functional configuration of the 6520 is pro¬ 
grammed by the microprocessor during system initialization. 
Each of the peripheral data lines is programmed to set as 
an input or output, and each of the four control/interrupt 
lines may be programmed for different possible control modes. 
This allows a high degree of flexibility in the overall 
operation of the interface. 

Some of the more important features of the 6520 are 
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Figure 2-9 6520 Input Designation (PIA) 
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the following: 

* Compatibility with the 6502 microprocessor 

(CPU) 

* Eight-bit bidirectional data bus for communi¬ 

cation with the microprocessor. 

* Two 8 bit bidirectionsl parts for interface to 

peripheral. 

* Two programmable Control Registers. 

* Two programmable Data Direction Registers. 

* Four individually controlled interrupt input 
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Lines; two usable as peripheral control 

outputs. 

* Handshake control logic for input and output 

peripheral operation. 

* High-impedance three-state and direct tran¬ 

sistor drive peripheral lines. 

* Program-controlled interrupt and interrupt 

mark capability. 

2.7 6520 ORGANIZATION 

Figure 2-10 contains a block diagram of the 6520 
showing the internal registers and dsta path and the various 
inputs and outputs on the device. This section contains a 
general description of the internal organization of the 
device, along with a discussion of how the various registers 
affect one .another. 

The 6 5'20 is' organized into two independent sections 
referred to as the. "A side" and the "B side,” Each section 
consists of a Control Register (CRA,CRB), Data Direction 
Register (DDRA,DDRB), Output Register (ORA,ORB), Interrupt 
Status Control and the buffer necessary to drive the Periph¬ 
eral Interface busses. 

2.7.1 DATA INPUT REGISTER 

When the microprocessor writes data into the 6520, 
the data appearing on the data bus during the phase 2 clock 
pulse is latched into the Data Input Register, It is then 
transferred into one of six internal registers of the 6520 
after the trailing edge of phase 2 . 
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Figure 2-10 6520 Internal Architecture 

2.7.2 CONTROL REGISTERS (CRA and CRB) 

The Control Registers allow the microprocessor to 
control the operation of the interrupt lines (CA1,CA2,CB1, 
CB2), and peripheral control lines (CA2,CB2). A single bit 
in each register controls the addressing of the Data Direct- 
tion Registers (DDRA,DDRB) and the Output Registers (ORA, 
ORB) discussed below. In addition, two bits are provided 
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in each control register to indicate the status of the 
interrupt input lines (GA1,CA2,CB1,CB2). These interrupt 
status bits (IRQA,IRQB) are normally interrogated by the 
microprocessor during the interrupt service program to 
determine the source of an active interrupt. These*inter¬ 
rupt lines drive the interrupt input (IPQ,NMI) of the micro¬ 
processor. 

2.7.3 DATA DIRECTION REGISTERS (DDRA,DDRB) 

The Data Direction Registers allow the processor to 
program each line in the 8 bit peripheral I/O port to act as 
either an input or an output. Each bit in the DDRA controls 
the corresponding line in the peripheral A port, and each bit 
in the DDRB controls the corresponding line in the peripheral 
B port. Placing a M 0 ,T in the Data Direction Register causes 
the corresponding peripheral I/O line to act as an input, 
while a "I" causes it to act as an output. 

The Data Direction Registers are normally programmed 
only during the system initialisation routine which is per¬ 
formed in response to a Reset signal; however, the contents 
of these registers can be altered during system operation. 
This allows very convenient control of some peripheral 
devices such as keyboards. 

2.7.4 PERIPHERAL OUTPUT REGISTERS (ORA,ORB) 

The Peripheral Output Registers store the output data 
which appears on the peripheral I/O port. Writing an "0” 
into a bit in ORA causes the corresponding line on the Peri- 
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eral A port to go low if that line is programmed to act as 
an output. A "I" causes the corresponding output to go high. 
The lines-of the Peripheral B port are controlled by ORB in 
the same manner. 

2.7.5 INTERRUPT STATUS CONTROL 

The four interrupt/peripheral control lines (CA1,CA2, 
CB1,CB2) are controlled by the Interrupt Status Control (A,B). 
This logic interprets the contents of the corresponding Con¬ 
trol Register, detects active transitions on the interrupt 
inputs and performs those operations necessary to assure 
proper operation of these four peripheral interface lines. 

2.7.6 PERIPHERAL INTERFACE BUFFERS (A,B) AND DATA BUS 
BUFFERS (DBB) 

The Buffers drive the peripheral I/O ports and the 
data bus to provide the current and voltage drive necessary 
to ensure proper system operation and to meet the device 
specifications. 






CHAPTER III 


SIMULATOR SYSTEM (KO 65 ) 

3.1 INTRODUCTION 

The most useful feature of this system is that it 
can help the user to debug his program by single-stepping 
and tracing. Also useful is the system's feature allowing 
the user to examine the contents of memory and registers at 
any time. 

The KO 65 system is comprised of the following parts: 

1) Loader 

2) Addressing Mode 

3) Instruction Set Decoder 

4) Internal Register Simulator 

5) Memory Simulator 

6 ) Internal Register Simulator for the 6520 (I/O 
Device Peripheral Interface Adapter) 

3.2 LOADER 

The loader takes the object code previously generated 
by the ASM 6 5 assembler program and loads it on top of the 
simulated memory. This will enable the system to execute each 
instruction. Figure 3.1 illustrates the flowchart for the 
loader program. 

As illustrated by the flowchart, the first line of 
object code will be read. The Program Counter recognizes 
each address and its corresponding object code and data 
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(2 bytes or 3 bytes instruction) will be located in certain 
memory space. This process continues until all object codes 
and data are relocated in the simulated memory. 

3*3 ADDRESSING MODE 

The 6502 offers eleven basic addressing modes: 

1) Memory - immediate 

2) Memory - absolute or direct, non-zero page 

3) Memory - zero page (direct) 

4) Implied or inherent 

5) Accumulator 

6 ) Pre-indexed indirect 

7) Port-indexed indirect 

8 ) Zero page, indexed (also called base page, 

indexed) 

9) Absolute indexed 

10) Relative 

11) Indirect 

There are tremendous variations in terms of which 
methods are allowed with which instructions. 

The author wrote a. subroutine for the eleven differ¬ 
ent 6502 addressing modes that can be called each time by the 
main program for the purpose of executing instructions. This 
avoids repetition of addressing modes during execution time. 
Figure 3*2 is a flowchart illustrating this subroutine. 

For simplicity, each addressing mode has a code 
number from one to eleven (decimal) assigned to variable M 
throughout the main program. M has a different number when- 
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Figure 3*2 


Flowchart for Addressing Mode Program 
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ever the main program calls this subroutine. The subroutine 
recognizes the number as a specific addressing mode. The 
corresponding operand or address will be fetched out of the 
memory and used by the simulator to execute the instruction. 

3.4 INSTRUCTION SET DECODER 

The author used each Opcode for decoding instructions. 
First, he started with the arithmetic operations such as; 

ADC, ORA, EOR, CMP, and SBC. All of these instructions have 
the same number (1,5,9, orD) as their first digit. This is 
also true for STA and LDA (data transfer operation). The 
rotating instruction set (ASL, LSR, ROL, ROR) and Increment, 
Decrement instructions (INC, DEC) have the same number (6 or E) 
in the first digit of the Opcode. In this way we can easily 
separate them for the purpose of decoding. Table 3.1 illus¬ 
trates 6502 Instruction Object Codes. 

The next instructions are conditional branch (BCC, 

BCS, BEQ, EMI, BNE, BPL, BVC, BVS) which have 0 as the 
common first digit between them. The rest of the instructions 
have been decoded with their specific Opcode in hex notation. 

There are seven status flags associated with the 
execution of instructions. These flags are: 

S Sign or Negative status 

V Overflow status 

B Break status 

D Decimal Mode status 

I Interrupt Disable status 
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TABLE 3.1 6502 Instruction Object Codes 


Object 

Code 

Instruction 

Object 

Code 

Instruction 

00 

BRK 


68 

PLA 


01 

ORA 

(addr,X) 

69 

ADC 

data 

05 

ORA 

addr 

6a 

ROR 

A 

06 

ASL 

addr 

6 C 

JMP 

(label) 

08 

PHP 


6 D 

ADC 

addr 16 

09 

ORA 

date 

6 E 

ROR 

addr 16 

OA 

ASL 

A 

70 

BVS 

disp 

OD 

ORA 

addr 16 

71 

ADC 

(addr)/Y 

OE 

ASL 

addr 16 

75 

.ADC 

addr,X " 

10 

BFL 

disp 

76 

ROR 

addr,X 

11 

ORA 

(addr),Y 

78 

SEI 


15 

ORA 

addr,X 

79 

ADC 

addr l6,Y 

16 

ASL 

addr,X 

7D 

ADC 

addr 16,X 

18 

CLC 


7S 

ROR 

addr l6,X 

19 

ORA 

addr 16,Y 

81 

STA 

(addr,X) 

ID 

ORA 

addr l6,X 

84 

STY 

addr 

IE 

ASL 

addr 16,X 

85 

STA 

addr 

20 

JSR 

label 

86 

STX 

addr 

21 

AND 

(addr,X) 

88 

DEY 


24 

BIT 

addr 

8 A 

TXA 


25 

AND 

addr 

8 C 

STY 

addr 16 

26 - 

ROL 

addr 

8 D 

STA 

addr 16 

28 

PLP 


8 E 

STX 

addr 16 

29 

AND 

data 

90 

BCC 

disp 

2A 

ROL 

A 

91 

STA 

(addr),Y 

2C 

BIT 

addr 16 

94 

STY 

addr,X 

2D 

AND 

addr 16 

95 

STA 

addr,X 

2E 

ROL 

addr 16 

96 

STX 

addr,Y 

30 

BMI 

disp 

98 

TYA 


31 

AND 

(addr),Y 

99 

STA 

addr 16,Y 

35 

AND 

addr,X 

9A 

TXS 


36 

ROL 

addr,X 

9D 

STA 

addr 16 ,X 

38 

SEC 


AO 

LDY 

data 

39 

AND 

addr 16,Y 

A1 

LDA 

(addr,X) 

3D 

AND 

addr l6,X 

A2 

LDX 

data 

3E 

ROL 

addr 16,X 

A4 

LDY 

addr 

40 

RTI 


A5 

LDA 

addr 

41 

EOR 

(addr,X) 

a6 

LDX 

addr 

45 

SOR 

addr 

A8 

TAY 


46 

LSR 

addr 

A9 

LDA 

data 

48 

PHA 


AA 

TAX 


49 

EOR 

data 

AC 

LDY 

addr 16 

4A 

LSR 

A 

AD 

LDA 

addr 16 

4C 

JKP 

label 

AE 

LDX 

addr 16 

4D 

EOR 

addr 16 

BO 

BCS 

disp 

4E 

LSR 

addr 16 

B1 

LDA 

(addr),Y 

50 

BVC 

disp 

B4 

LDY 

addr,X 
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TABLE 3.1 6302 Instruction Object Code (Cont.) 


Object 

Code 

Instruction 

Object 

Code 

Instruction 

51 

EOR 

(addr),Y 

B5 

LDA 

addr,X 

55 

EOR 

addr,X 

B6 

LDX 

addr,Y 

56 

LSR 

addr,X 

B8 

CLV 


58 

CLI 


B9 

LDA 

addr 16,Y 

59 

EOR 

addr 16,Y 

BA 

TSX 


5D 

EOR 

addr 16,X 

BC 

LDY 

addr l6,X 

5E 

LSR 

addr l6,X 

BD 

LDA 

addr 16,X 

60 

RTS 


BE 

LDX 

addr l6,Y 

6 l 

ADC 

(addr,X) 

CO 

CPY 

data 

65 

ADC 

addr 

Cl 

CMP 

(addr,X) 

66 

ROR 

addr 

C4 

CPY 

addr 

05 

CMP 

8 ddr 

E4 

CPX 

addr 

C6 

DEC 

addr 

'E5 

SBC 

addr 

C8 

INY 


E6 

INC 

addr 

09 

CMP 

data 

E8 

INX 


CA 

DEX 


E9 

SBC 

data 

CC 

CPY 

addr 16 

EA 

NOP 


CD 

CMP 

addr 16 

EC 

CPX 

addr 16 

CE 

DEC 

addr 16 

ED 

SBC 

addr 16 

DO 

BNE 

disp 

EE 

INC 

addr 16 

D1 

CMP 

(addr),Y 

FO 

BEQ 

disp 

D5 

CMP 

addr,X 

FI 

SBC 

( addr),Y 

D6 

DEC 

addr,X 

F5 

SBC 

addr,X 

D8 

CLD 


F6 

INC 

addr,X 

D9 

CMP 

addr 16,Y 

F8 

SED 


DD 

CMP 

addr 16,X 

F9 

SBC 

addr 16,Y 

DE 

DEC 

addr l6,X 

FD 

SBC 

addr 16,X 

E0 

El 

CPX 

SBC 

data 
(addr,X) 

FE 

INC 

addr l6,X 


Z Zero status 

C Carry status 

Each instruction has a different effect on the flags. 
The flag subroutine (Appendix C) was written for this purpose. 
During the execution of each instruction, the main program 
will call this subroutine in order to change the proper flag. 
For the conditional branch operation, this subroutine is 
called before execution to branch to another part of the 


program 
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3.5 INTERNAL REGISTER SIMULATOR 

The 6502 microprocessor has two Index Registers, 

(X and Y), one Accumulator (A), Program Counter (PC), Stack 
Pointer (SP), and Status Register (P). All these registers 
are considered as internal registers. The P Register was 
discussed above. 

The author has assigned certain variables to the 
internal registers as follows:- 
A% = Accumulator A 
X = Index Register X 
Y = Index Register Y 
C = Program Counter PC 
S = Stack Pointer SP 
P = Statis Register P 

All internal registers are simulated for future use 
during program execution. 

3.6 MEMORY SIMULATOR 

The PDP-11/34 has a 16 K user memory, 13.5 K of which 
is occupied by the KO 65 software program with 2.5 K remaining 
for the simulated memory. The addressable memory location 
for this system is between 0000^g and 0A00f6. Memory contents 
are visible to the user. 

3.7 INTERNAL REGISTER SIMULATOR FOR THE 6520 (I/O DEVICE) 

The internal registers of the 6520 are simulated by 
assigning memory locations as follows: 

09EB = CRA (Control Register A) 
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09FC = ORA (Output Register A) 

09FD « DDRA (Data Direction Register A) 

09FE = CRB (Control Register B) 

09 FF = ORB (Output Register B) 

0A00 - DDRB (Data Direction Register B) 

In this case, the user has the capability of alter¬ 
ing and viewing the contents of these internal registers of. 
the 6520 (I/O Device). 

3.8 SUMMARY 

The information in this chapter should give the 
reader an overview of how the 6502 microprocessor has been 
simulated by the KO 65 system. The detailed commands of this 
simulator system will be discussed in the next chapter. 











CHAPTER IV 


USER'S GUIDE FOR ASM65-K065 SYSTEMS 

4.1 INTRODUCTION 

The KO 65 Simulator is a software program running on 
the PDP-11/34 minicomputer and having the property of simu¬ 
lating the instruction set of the 6502 based microcomputer 
system and behaving in every respect as the real machine. 

The ASM 65 assembles the 6502 assembly language source file, 
generates the object file for the KO 65 system, and furnishes 
error messages as and when required. The K 065 also possesses 
advanced features, such as: trace, single-step, trap, 
internal registers, and memory inspection that enables the 
user to efficiently develop and debug software for the 6502 
microcomputer system. 

4.2 USER STEPS (SUMMARY) 

1. Log on the RSTS/E Operating System (PDP-11/34) 

(HELLO) 

2. Log on the EDITOR (EDT) 

3. Create a new file user defined name (name of the 

file to be assembled) 

4. Log on the ASM 65 System (Assembler) (RUN ASM65) 

5. Create object file and symbol table by the ASM 65 

(name of the object file to be used by KO 65 
System) 
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6* Log on the KO 65 System (simulator) (RUN KO 65 ) 
7. Load the object file (LOAD) 
8* Enable trace mode (ERA) 
9* Reset trace mode (NOT) 

10. Enable single-step mode (SIN) 

11. Reset single-step mode (NOS) 

12. RUN the program (GO) 
13* Trap the program (TRP) 
14. Reset the trap (NTP) 


15* Display memory, registers, symbol table (DIS) 
Peripheral Interface Adapter (PIA) 

16. Set registers, program counter (PC) and 


stack pointer (SP) (SET) 

17. Clear internal registers, PC and SP (CLR CPU) 

18. Set PIA (SPIA) 

19. Exit from KO 65 System (EXIT) 

20. Log off from RSTS/E System (BYE).. 


4.3 LOGGING ON THE RSTS/E OPERATING SYSTEMPDP-11/34) 

Turn on the terminal, type the command 
HELLO 

and strike the RETURN key. This informs the computer that 
you are now joining the system. The computer prints a 
heading, identifying itself; your job number; the date; and 
time. On the next line it types a number sign (#) and then 
waits for you to type in your user number. After you have 
typed in your number and struck the return key, the computer 
prints: 
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PASSWORD: 

Type your password, but as a security measure the computer 
does not print out the password on the terminal. Again 
strike the RETURN key. By now it should be apparent that 
all entries are followed by a RETURN. Failure to hit the 
RETURN key results in the computer not recording your entry. 
If either the user number or password is incorrect, the com¬ 
puter prints the error message: 

INVALID ENTRY—TRY AGAIN # 

and allows you to reenter your user number and password. 

The following is a sample log in: 

HELLO 

RSTS V06C 21-APR-18 11:44 AM 

#35,8 PASSWORD: 

Announcements (if any) will appear on the screen. The READY 
prompt following announcements is first printed when the 
user is successfully logged onto the system: 

READY 

The user is now ready to enter any valid command. If an 
invalid command is entered, response of the RTST/E will be: 

? WHAT ? 

There is a faster way to log on the RSTS/E system by typing: 

. I (User Account number) 

For example: 135/8 
The RSTS/E now responds with: 


PASSWORD: 
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Note that in the preceding example, the user types a slash 
(/) in the Account No. and not a comma. 

4.4 LOG ON THE EDITOR 

To use TEDIT, enter the command 
EDT file name 

where the file name is the name of the source file to be 
edited and then assembled by ASM65 system. TEDIT will 
respond with some statistics and then the prompt 
EDIT > 

after which you may enter the editor commands. If the file 
does not exist, a suitable message is printed and the file is 
created for the user. 

4.4.1 COMMAND SUMMARY 

The following is a listing of important commands 

syntax; 

ADD OR A (short form) 

This permits the user to add more lines to the end of the 
file from the keyboard. For.example: 

EDIT) ADD 

Type CTRL/Z to stop insertions 
34) 

In the example above, the user may add new lines to the file 
starting at number 34.(last line of previous file =* 33). 
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4.4.2 CHANGE 

The change command allows the user a combination of 
delete and insert commands. This command will delete a 
line (S) specified and start inserting new lines at that 
point. To end this command enter CTRL/Z immediately after 
the line number. The CTRL/Z will not be inserted in the 
file. After the changes have been made, EDIT renumbers the 
line numbers consecutively. 

CHANGE n OR C n (short form) 

This deleted line number n; then EDIT allows the 
user to insert any number of lines in place of line number 
n. After entering CHANGES 45, line 45 will be deleted and 
any number of new lines may be inserted in place of line 
number 45. 

CHANGE n,m OR C n,m 

This deleted line numbers n through m inclusive and 
inserts any number of new lines in place of those lines 
deleted. After entering CHANGE 20,25, line number 20 through 
25 inclusive will be deleted and new lines will be inserted 
in place of them. 

4.4.3 DELETE OR D (short form) 

The delete command allows the user to delete a line 
(S) from the file. If the user attempts to delete more than 
15 lines, EDIT will come back and ask for confirmation of 
the command. 


DELETE n OR D n 
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This deletes line number n only. Line 10 of the 
file will be deleted after DELETE 10 is entered. 

DELETE n,m OR D n,m 

This deletes line number n through m inclusive. 

After entering DELETE 4,8; lines 4 through 8 inclusive will 
be deleted from the file. 

DELETE 1,20 

This deletes the first 20 lines after a confirmation 

of yes. 

EDIT) D 1,20 

ARE YOU SURE <N0>? YES 

The question 11 ARE YOU SURE <N0>?" is always asked if 
there are more than 15 lines involved in the operation to 
protect 8gainst accidentally deleting more lines than you 
intended to delete. 

4*4.4 INSERT OR I (short form) 

The Insert Command allows the user to insert any 
number of new lines between line number n-1 and n. After 
the user enters the command, EDIT prints a line number and 
waits for the user to enter a new line and end it with the 
return key or line feed. EDIT now prints the next sequen¬ 
tial line number and waits for another line to be entered. 
This process continues until the user enters a CTRL/Z 
immediately following the line number. The CTRL/Z stops 
the insertion and is not entered into the file. 


INSERT 
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This permits the user to insert line (S) at the 
beginning of the file. 

INSERT n 

This permits the user to insert line (S) between 
line numbers n-1 and n. After entering INSERT 43, new line 
(S) may be inserted between line numbers 42 and 43. 

4.4.5 LIST OR L (short form) 

The LIST command allows the user to obtain a listing 
of the file. This command prints the listing of the file at 
terminal. The CTRL/O, not the CTRL/C, is used to terminate 
the listing prematurely. 

-UST- 

This lists the entire file. 

LIST n 

This lists only line number n. Line 20 will be 
listed at the terminal after LIST 20 is entered. 

LIST n,m 

This lists line numbers n through m inclusive. 

After entering LIST 1,50; line number 1 through 50 will be 
listed at the terminal. 

4.4.6 REPLACE OR R (short form) 

This command allows the user to REPLACE a particu¬ 
lar character string in the file with another character 
string. After the command has been entered, EDIT will 
prompt the user with "OLD String?" The user specifies 
the character string that he wants to replace. Then EDIT 
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prompts the user with "NEW String? 11 The user now specifies 
the new character string with which to replace the old char¬ 
acter string. EDIT will print a line if a change is made to 
it. In other words, if the character string is found in a 
file, EDIT will change the old character string to the new 
character string and print the modified line on the terminal. 
If the character string is not found, a message will print 
on the terminal stating "SEARCH FAIL FOR "A"; where A is the 
character string that the user is typing to replace. 

REPLACE 

This replaces every occurrence of the specified 
character string in the entire file with the new character 
string. 

EDIT> REPLACE 
OLD String ? A 
NEW String ? AE 

This replaces every occurrence of the character 
"A" in the file with the character ”AB". 

REPLACE n 

This replaces every occurrence of the specified 
character string in line number n of the file with the new 
character string. 

EDIT> REPLACE 10 
OLD String ? 2 
NEW String ? 4 

This replaces every occurrence of the character "2" 
in line number 10 with the character ”4”* 
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REPLACE n,ra 

This replaces every occurrence of the specified 
character string in line number n through m inclusive with 
new character string. 

EDIT> REPLACE 4,10 
OLD String ? LT 
NEW String ? LET 

This replaces every occurrence of the character "LT" 
with the character "LET” in line number 4 through 10 inclu¬ 
sive. 

4.4.7 END 

The END command tells EDIT that the user has finished 
editing the file. After it is entered, EDIT prompts the user 
with "Output file infile-spec ?" The user then enters a 
valid output file name in order to change the first file 
name. To place the edited file back into the input file, 
simply press the RETURN key. The END command is the most 
critical command in terms of maintaining the integrity of 
your edited file. 

EDIT> END 

Output file <TEST1> ? 

If the RETURN key is pressed the edited file is 
written to the file TEST1 and exits from EDIT. 

NOTES: 

1*. For additional information on EDIT editor the 
user may refer to EDIT user's guide—(Digital 
Equipment Corporation). 









42 


2. The ASM-65 Assembler can accept free-formatted 
code. However, it DOES NOT respond to usage of 
the TAB key, 

4.5 LOGGING ON TO ASM65 SYSTEM (ASSEMBLER) 

After creating a new file via the EDITOR, the user 
can run ASM65 to get the object file from the source file 
created earlier. The user should not type: 

RUN ASM65 

Because of the large amount of memory used by this system 
(about l6K) it will take some time to run this program. 

After a few minutes the terminal will prompt with the 
message: 

SOURCE FILE ? 

Type the name of the source file and press the RETURN key. 

The assembler responds with: 

OBJECT FILE ? 

The user may give any name for object file that is to be 
used by the KO 65 system and again press the RETURN key. 

The assembler begins with this message: 

ASSEMBLY BEGINS_ ‘ . 

Now the ASM 65 will start its function of converting the 
source file to the object file line by line. If there are 
errors in the source file, appropriate error messages and 
corresponding line numbers will appear on the screen. 

(ASM 6 5 is a 6502 assembler in H.P BASIC that has been adapted 
for the PDP-11/34 BASIC-PLUS). 
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All error messages will be displayed at the time of running 
the ASM-65* (For detailed error message listing refer to 
Appendix B) 

Examp 1e: 

SOUR S FILE ? TEST1 

OBJECT FILE ? 0BTEST1 

ILLEGAL ADDRESSING MODE IN LINE 6 

7770006 STA #835 

UNKNOWN OPCODE IN LINE 13 

7770013 LDM #8A2 

READY 

There are two errors in this program. The first one 
is "ILLEGAL ADDRESSING MODE" because for STA instruction 
(store the contents of Accumulator in memory location) imme¬ 
diate mode of addressing (#) should not be used. The second 
one is "UNKNOWN OPCODE," since there is no "LDM" instruction 
in the instruction set of the $502 microcomputer. The 
instruction should have been LDA* 

The user should now go back to the EDIT mode for 
correcting the errors by typing: 

EDIT name of source file. 

The necessary correction can now be made. 

In case the source code is error free, considerable 
time will be taken after the appearance of ASSEMBLY BEGINS... 
to generate the object code for the source file. After the 
object file has been created, both the object code and source 
code will appear simultaneously on the screen. The following 
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program is the sample of the object file that has been 
generated by the ASM 65 system: 


0001 

0000: 

A9 

22 

LDA #$22 


0002 

0002: 

85 

40 

STA $40 


0003 

0004: 

A0 

00 

LDY #0 


0004 

0006: 

A5 

40 

LDA $40 


0005 

0008: 

F0 

07 

BEQ DONE 


0006 

000A: 

30 

05 

CHKMS BMI DONE 


0007 

000C: 

C8 


INY 


0008 

000D: 

0A 


ASL A 


0009 

000E: 

4C 

0A 00 

JMP CHKMS 


0010 

0011: 

85 

41 

DONE STA $41 


0011 

0013: 

84 

42 

STY 


0012 

0015: 

00 


BRK 



First column is line number, the second column is 


program counter, the third, fourth, and fifth columns cor¬ 
responds to the first byte (Opcode), second byte and third 
byte (data or address) of each instruction respectively. 

For instance, the first line PC = 0000, we have A9 22 where 
A9 is Opcode for LDA instruction (Load 22 in the Accumulator 
in immediate mode), and the second byte of instruction, 22 is 
to be loaded into Acc. 

NOTE: For three bytes instruction, the third byte 
and the second byte correspond to the high order byte and 
low order byte of the program counter respectively. For 
example: In line number 9 of the above program, we have 4C 
0A 00. This means, jump to memory location 000A equal to 
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CHKMS label. At the end of the object file, user can see 
the symbol table and its content. 

SYMBOL TABLE 

CHKMS 000A DONE 0011 
First the symbol will appear and then its corre¬ 
sponding memory location. The symbols will be presented in 
the symbol table in the same way that they appear in the 
source program. 

After displaying symbol table, the terminal will 
prompt with READY. So the user can now execute the object 
file by the KO 65 Simulator System. In case of debugging the 
program, the user would need a hard copy of the object pro¬ 
gram. This can be done by queing the name of the object 
file in PDP-11/34 system. 

QUE 0BTEST1 

4.6 LOGGING ONTO THE KO 65 SIMULATOR SYSTEM 

The KO 65 program is designed to run on the PDP-11 
model 34 on the BASIC-PLUS software language. The user must 
enter the KO 65 system by typing: 

RUN K065 

because the KO 65 program name is not a Control Command 
language of RSTS/E. The computer will resppnd by printing 
the program heading and O.K. prompt. 

KO 65 dd-rran-yy hh:mm:ss 
O.K. 

The user can differentiate between KO 65 and RSTS/E by the 
following prompts: 
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READY Will be printed by RSTS/E System 

O.K. Will be printed by KO 65 System 

Now user can enter any of the twelve commands of the KO 65 
System, If any of these commands are typed incorrectly, the 
proper error messages will be printed with a beep sound to 
warn the user and then will prompt by 
O.K. 

LOAM 

?? INVALID COMMAND ?? 

The command should have been "LOAD 11 and not ’’LOAM.” (For 
detailed error message listing refer to Appendix B). 

4.7 LOADING THE OBJECT FILE 

By using this command the user can load the object 
file that has been generated by ASM 65 previously in the 
simulated core memory of K065# The maximum core memory of 
KO 65 constrained to be 2.5K because of the limitation of 
the PDP-11 user core memory (16K). So the addressable 
memory location for this system is between 0000 and 0A00 in 
hexadecimal number system. All numbers for data and m'emory 
location used in the KO 65 System is in hex number system. 

By typing LOAD, the terminal prompts: 

O.K. 

LOAD 

OBJECT FILE ? 

User should type the name of the object file that has been 
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generated by ASM 65 , Any wrong name causes the error message 
?? CAN'T FIND OBJECT FILE ?? 

When object file' name has been typed correctly, it will take 
some time for the loader to load the whole object code into 
the simulator core memory. It will respond with: 

O.K. 

The user is now ready to use the following command 
for executing and debugging the program. 

In addition, the load command will clear all memory 
locations, internal registers, and flags of the simulated 
6502 Microprocessor System. 

4.8 TRACING THE PROGRAM 

The user can use this command for tracing the pro¬ 
gram. All register contents, conditional flags, and object 
code of each instruction will be shown in this mode during 
executing of each line by the emulator. 


O.K, 

» 





TRA 






O.K< 

► 





GO 






OP 

A9 

: PO 

3 V B D I 

z c\ 

1000000 

A 


X 

Y 

SP 

PC 

$A2 


$00 

$00 

$FF 

$0002 

OP 

38 

: P | 

[ V B D I 

z 5J 

1000001 

A 


X 

Y 

SP 

PC 
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$A2 $00 $00 $FF $0003 

O.K. 

The program • counter always shows the number of the next line 
to be executed. Register contents and conditional flags are 
shown after execution of each line of code. 

The command NOT (NO TRACE) will negate the trace 
command by using the following format: 

NOT 

O.K. 


4.9 SINGLE-STEP MODE 

This mode enabled by typing the SIN command will 
execute the program line by line. The GO command must now 
be typed. The terminal .responds with: 

GO 

TYPE RET FOR SINGLE-STEP OR "E" AND RET FOR 
TERMINATION 

? 

The RETURN key must be hit after each prompt. 
The register contents PC, SP, and flags will be displayed 
in sequence. 

At any time user can go back to O.K. mode by typing 
"E" and then the RETURN key. In this case the next line 
will be executed and then after displaying registers and 
flags, the terminal will prompt O.K. 

Single-step mode is one of the advanced features of 
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this system that can help the user debug the program as the 
user can check the execution of each line and content of the 
registers, • 

The user can negate single-step mode by issuing the 
command, NO SINGLE-STEP 
NOS 

4.10 RUNNING THE PROGRAM (GO) 

This command begins execution of the program and 
will not clear the counters. If there is an operand, the 
program counter, PC, will be loaded from that address, if 
not, the program counter will not be effected, and execution 
of-the program begins from the location pointed by the pro¬ 
gram counter, 

4.11 TRAPPING THE PROGRAM 

This command has two important advantages. First, 
the user can stop the execution of the program at any memory 
location or the label corresponding to a specific memory 
location, 

TRP $012A 
TRP L00P1 

When the program counter gets the location $012A or 
L00P1, the execution of the program will stop. Then user 
can continue the execution with the GO command. The second 
advantage is to stop the execution when a certain memory 
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location is loaded with a certain number predefined by the 
user. 

TRP $012A = $23 
TRP L00P1 = $AE 

Whenever the memory location 012A or L00P1 get the value $23 
or #AE respectively, then the program will stop. These two 
advantages are very useful for debugging the program. 

This command can be negated by typing: 

IT TP 


4.12 DISPLAY COMMAND 


The display command causes the values of memory loca¬ 
tions, CPU registers, to be shown on the screen. 

DIS display-element 

A display-element can be the 6302 CFU registers and flags. 
REGISTERS FLAGS 


A Accumulator 
X Index Reg X 
Y Index Reg Y 
PC Program Counter 
SP Stack Pointer 
In this case, valid display 


S Sign 
V Overflow 
B Break 
D Decimal mode 
I Interrupt 
command is: 


Z 

C 


Zero 

Carry 


DIS REG 

OP 00 : P d V B D I Z c] 1001101 
AX Y SP PC 

$E0 $23 $00 $00 $0A00 


O.K. 
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The content of the symbol table can be examined by using a 
display-element of the form: 

DIS SYM 

Prints the entire symbol table in this form: 

SYMBOL TABLE 

L00P1 0001 CHfcL 0102 ADD 09AE 

The values contained in memory location can also be displayed. 
In this case, display-element takes the form: 

MEM range-list (hex number) 

The range of elements printed is specified in the range- 
list. Valid Display Commands are: 

DIS MEM $120 
DIS MEM $12 to $35 
For the first command the response is: 

$0020 24 

O.K. 

That means, memory location $120 contains $24. The response' 
for the second command will be: 

$0012 10 20 60 

$0020 00 AA BC 23 12 00 24 12 00 00 

00 00 00 EF 00 10 

$0030 00 24 05 AB 

The format of displaying that memory contents is designed in 
such a way the user can easily access data. The first four 
digits number is the memory location of the first number in 
the line and then next fifteen memory contents will be print¬ 
ed in a sequence at the same line. So the user can find the 
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content of each memory location by counting from 0 to F in 
hex number system* 

The last display-element is: 

PIA (Peripheral Interface Adapter) 
and valid command for PIA is: 

DIS PIA 

On typing this command the user can see the contents of all 
internal registers in PIA at the same time. 

PORT A _ 

CRA (CONTROL REG A) 00011001 
ORA (OUTPUT REG A) 00001100 
DDRA (DATA DIRECTION REG A) 01101101 

PORT B _ 

CRB (CONTROL REG B) 11100010 
ORB (OUTPUT REG B) 00001100 
DDRB (DATA DIRECTION REG B) 01010101 
Contents of all registers will be presented in binary format. 

4.13 SETTING REGISTERS, PC AND SP 

The set command allows CPU registers to be set to 
specific values. The values of specified register is set to 
the number following The termination of each set com¬ 

mand is as a delimiter. Thus, the valid set commands 
are: 

SET X = $23 

SET Y = $1E. PC = $120. 

SET SP = $FF. A = $02. 
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Also, all registers, PC, and SP can be set in one line re¬ 
gardless of sequence: 

SET A = $02. X = $23. Y = IE. SP = $FF. 

PC « $120. 

A set command can be replaced by CLR CPU command in which 
case all registers, PC, SP, and flags are set to zero. 

CLR CPU 

O.K. 

This command can also be used for initializing the CPU before 
running the program. 

4.14 SETTING PIA (I/O PORT) 

The values of I/O Ports can be set by using this 

command: 

SPIA 

Then KO 65 System responds: 

PORT A 
CRA ? 

And the user can type any two digits in hex number in front 
of the question mark and again the terminal prompts by: 

ORA ? 

User can put next data in this port. This -process will con¬ 
tinue until all six PIA internal registers are set by the 
user^ defined values. 

PORT A 
CRA ? 2A 

ORA ? 5B 
DURA ? 23 
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.PORT B 
CRB ? 12 
ORB ? 14 
DDRB ? E3 

Note: The memory location 9FB, 9PC, 9PD, 9FP, and A00 are • 

reserved for CRA, ORA, DDRA, CRB, ORB, and DDRB respect- 
txvely. 

4.15 EXIT 

The 3X1T command reinitializing the K065 System and 
the control transfers to RSTS/S from KO 65 System with prompt 
READY 

4.16 LOGGING OFF FROM RSTS/E SYSTEM 

To leave the system, type the command BYE. This is 
a request to be disconnected from the computer. At this 
point the computer prints CONFIRM: and then waits for one 
of *the following responses: 

Y Yes. The system proceeds with logout sequence. 

N No. No logout is performed, and the system 
replies READY. 

I Individual file descriptions are print, each 
followed by a "?". To delete a file, the 
user types K and the RETURN key; to retain it, 
just the RETURN key. 

? A listing of CONFIRM: replies are printed. 

F Fast. Fast logout is performed (same effect 
as Y except that the report is not printed). 






CHAPTER V 


CONCLUSIONS 

The object of this thesis was to design a simulator 
system which provides the complete execution of 6502 instruc¬ 
tion set. 

The biggest problem encountered during the design was 
the limitation of memory space in PDP-ll /34 which in turn 
caused the limitation of memory simulator. The 6502 has a 
16-bits Program Counter which is capable of handling 64 K 
bytes of memory. As a result, the memory space for this • 
system is reduced to 2.5 K bytes. 

Due to the excellent BASIC utility of the PDP- 11 / 34 , 
the system is reliable and interactive, so that the user can , 
be on line with the system for immediate use. 

The author believes that future work can be done in 
the area of the I/O port simulator. Although some work was 
done in this area, it is felt that the system could be 

adapted to the outside world in order to control different 
devices. 

In summation, this thesis was a good and useful 
experience for the author. Much was learned about micro¬ 
processor, microcomputer, and their applications. 
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APPENDIX A 

6502 ASSEMBLER CONVENTION 

A.1 INTRODUCTION 

This appendix describes the standard 6502 assembly 
language that the ASM65 system will accept in order to gen¬ 
erate the object code. For details of the 6502 assembly 
language, the user can refer to the 6502 ASSEMBLY LANGUAGE 
PROGRAMMING MANUAL by Rockwell. This appendix contains the 
general format for writing the source file for the ASM65 
system. 

A.2 ASSEMBLER FIELD STRUCTURE 

The assembly language instructions have the standard 
field structure, as shown in Table A.1. The required de¬ 
limiters are: 

1) A space after a label. Note that all labels . 
must start in column 1. 

2) A space after the operation code. 

5) A comma between operands in the address field, 
i.e., between the offset address and X or Y 
to indicate indexing with Index Register X or 
Y respectively. 

4) Parentheses around addresses that are to be 
used indirectly, 

5) A semicolon or exclamation point before a 


comment. 
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TABLE A.1 The Field of an Assembly Language Instruction 


Label 

Field 

Operation Code 
or Mnemonic 

Field 

Operand 

Address 

Field 

Comment 

Field 

BEGIN 

LDA 

#$23 

;LOAD $23 into A 


AND 

$12B 

JADD $12B to A 


STA 

DATA 

;STORE A IN DATA 


Typical 

6502 

assembly language 

instructions are: 

BEGIN 

STA 

(20,X) • 

; STORE NUMBER 


AND 

FIVE 


END 

BRK 


; END OF SECTION 

A. 3 labels 




The assembler allows only six characters in labels 
and truncates longer ones. The first character must be a 
letter while subsequent characters must be letters or numbers; 
The single characters A,X,and Y are reserved for the Accumu¬ 
lator and the two index registers. The use of operation 
codes as labels is not allowed. 


A.4 PSEUDO-OPERATIONS 

The Assembler has the following explicit pseudo¬ 
operations : 

.BYTE - Form Byte - Length Data 

.DBYTE - Form Double - BYTE - Length with MSBs 

First 

.TEXT - Form String of ASCII characters 
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•WORD - Form Double - Byte - Length Data with 
LSBs First 
= - Equate 

Other pseudo-operations may be implemented by setting 
the assembler's location counter (denoted by ,) to a new or 
updated value* Examples are: 

. = START -Set Program Origin to START 
• = • + N -Reserve N Bytes for Data Storage 
•BYTE, *DBYTE, .TEXT, and *W0RD are the data pseudo-opera¬ 
tion used for 8-bit data, .TEXT for 7-bit ASCII characters 
(MSB is zero), .DBYTE for 1 6 -bit data with the most signifi¬ 
cant bits first, and .WORD for 16-bit addresses or data with 
the least significant bits first* Note particularly the 
difference between .DBYTE and .WORD. 

For example: 

START .WORD $2132 

results in (START) = 32 and (START +1) =21 (HEX). 

TABLE .BYTE 25 

This pseudo-operation places the number 25 (19 in HEX) in 
the next byte of memory (RAM) and assigns the name TABLE to 
the address of the byte. 

MEAN .TEXT (MEAN) 

This pseudo-operation places the 7-bit ASCII characters M, 

E, A, and N into the next five bytes of memory and assigns 
the name MEAN to the address of the first byte. Any single 
character (not just/) may be used to surround the ASH text. 
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but we will always use / for the sake of consistency. 

AVEG .DBYTE $0235 

results-in (AVEG) = 02 and (AVEG + 1) = 35 

ARRAY .WORD ONE, WO, THREE, POUR 

This pseudo-operation places the addresses ONE, TWO, THREE, 
and FOUR in the next eight bytes of memory (least signifi¬ 
cant bits first) and assigns the name ARRAY to the address 
of the first byte. 

A.4.1 SET ORIGIN 

The operation . = . + N is the Reserve pseudo-opera¬ 
tion used to assign locations in memory; it allocates a 
specified number of bytes. = is the Equate or Define pseudo¬ 
operation used to define names. . = ORG is the standard 
origin pseudo-operation. 

6502 programs usually have several origins which are used as 
follows: 

1) To specify the Reset and interrupt service 
addresses. These addresses must be placed in 
the highest memory addresses in the system 
(usually PPPA-jg through PPPP^). 

2) To Specify the starting addresses of the 
actual Reset and interrupt service routines. 
The routines themselves may be placed any¬ 
where in memory. 

3) To specify the starting address of the main 


program. 
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2) .BYTE, .DBYTE, .TEXT, .WORD, and . = .+N 
pseudo-operations usually have labels. 

A.6 ADDRESSES 

The 6502•Assembler allows entries in the addresses 
field in any of the following forms: 

1) Decimal (the default case) 

Example: 2310 

2) Hexadecimal (must start with $) 

Example: $ABC0 

3) Binary (must start with %) 

Example: #11101011 

4) ASCII (single character preceded by an 
apostrophe) 

Example: ! M 

5) As an offset from the Program Counter (.) 

Example: . + 5 

A.7 ADDRESSING MODES 

The various 6502 addressing modes are as follows: 
.Absolute or Zero Page (direct) are the default 
modes (the Assembler chooses Zero Page if the 
address is less than 256, and Absolute otherwise). 
.# for immediate made (precedes the data) 

.,X or ,Y for indexing (follows the offset 
address) 

.Parentheses around addresses that are used 
indirectly so that, (addr,X) indicates pre- 




61 


indexing (indexed address used indirectly) 
(addr),Y indicates port-indexing (indirect 
address is indexed) 

(addr) indicates indirection with JMP instruc¬ 
tion only 

In the indexed modes, as in the direct inodes, the Assembler 
automatically chooses the Zero Page version if it is per¬ 
mitted and if the address is less than 256. 

The Assembler also allows expressions in the address 
field. These expressions consist of numbers and names 
separated by the arithmetic operators +.-.* (multiplication), 
or 1 (integer division). The Assembler evaluates expressions 
from left to right; no parentheses are allowed to group 
operations, nor is there any hierarchy of operations. Frac¬ 
tional results are truncated. 
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4) To specify the starting address of sub¬ 
routines. 

5) To define areas for memory storage. 

6 ) To define an area (always on page 1) for 
the memory Stack. 

7) To specify addresses used for I/O ports and 
special functions. 

Examples: 

RESET = $2560 

. = $FFFC 
.WORD RESET 
. = RESET 

Note: $ means "hexadecimal” 

This sequence places the Reset instruction sequence in memory 
beginning at address 2560-jg, and places that address in the 
memory locations (addresses FFFC 16 and FFFD-jg) from which 
the 6502 CPU retrieves the Reset address. 

The instruction sequence which follows in stored in 
memory beginning at location AB00<jg. 

PRGM = $AB00 

. = PRGM 

A.5 LABELS WITH PSEUDO-OPERATIONS 

The rules for labels with 6502 Pseudo-operations are 
as follows: 

1) Simple equates, such as PRGM = $ AB00, 
require labels since their purpose is to 
define the meanings of those labels. 
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APPENDEX B 

ERROR MESSAGES 

This appendix lists errors in two categories-ASM65 

Error Messages and KO 65 Error Messages. In the first case, 
when the ASM 65 system finds an error in a program line, it 
prints an error message. This is also true in the KO 65 
system. This signals that an error has been made and that 
the user must correct the error. Error messages are an ai^ 
in debugging the source program. 

V/hen the ASM 6 5 system detects an error in a program 
line, it prints the error message as in the following example: 
UNKNOWN OPCODE IN LINE 20 
• ??? LDM #$2A 

where 20 is the line number of the statement containing the 
error. 

When KO 65 system detects an error, it prints the 
error message as in the following example: 

?? INVALID COMMAND ?? 

Table B-1 lists the error messages for both systems and pro¬ 
vides a description of each. 

TABLE B-1 

ASM 65 Error Me ssages 

MISSING " = " 

The " = " sign after (current PC) is missing. 





TABLE B-1 (Cont.) 
ASM65 Error Messages 
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This directive is used to define names or set the 
Program Counter to a specific address* 

MISSING ARGUMENT 

The argument after is missing. It can be either 
a number or a name that specifies the address. 

ILLEGAL FORWARD REFERENCE 

The address found after "=" for the Program Counter 
refers to an illegal address. 

UNKNOWN OPCODE 

The operation"code*is~invalid. Check the instruc¬ 
tion set of the 6502 microprocessor. 

BRANCH OUT OF RANGE 

The operand for Branch Instruction is not between the 
correct range which is from -127 to +127 in decimal. 
BAD ADDRESSING MODE 

In the operand or address field the index register 
X or Y is missing. . 

VALUE TOO LARGE FOR ZERO PAGE 

Zero page in memory space starts from 0000 to 00FF 
in hex system. Ensure that the operand field is 
within this range. 

ILLEGAL ADDRESSING MODE 

The addressing mode in the operand field is not 
matched with one of the eleven addressing modes for 
6502 microprocessor. 




TABLE B-1 (Cont.) 
ASM 65 Error Messages 
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IRRESOLVABLE END REF/BAD LABEL 

The address in the operand field refers to a non¬ 
existent label in the label field* 

BAD DELIMITER 

Using an incorrect delimiter for * TEXT directive in 
memory assignment. 

BAD LABEL IN MEMORY ASSIGNMENT 

The label that is assigned to the .BYTE or .WORD 
directive at the end of the source program is not 
the same as the one in the operand field of the 
program. 

NUMBER TOO LARGE IN MEMORY ASSIGNMENT 

The number used in the memory assignment for .DBYTE, 

•BYTE, or .WORD directive should be less than 256 in 
decimal. 

ILLEGAL OPERATOR 

The legal operators for this assembler are + and - 
for arithmetic operations in the operand field. 
Ensure that these operators are used. 

BAD NUMBER 

The number used for address or data should be in one 
of the legal number systems such as: HEX, DEC, or 
BIN form. Otherwise, it won’t be accepted. 
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TABLE B-1 - (Cont.) 

ASM 65 Erro r Messages 

MULTIPLE DEFINITION OF A LABEL 

There are multiple definitions for one label in the 
label field which is illegal. 

KQ 65 Error Me ssages 

INVALID COMMAND 

KO 65 has encountered an unrecognizable element such 
as misspelled commands. 

STACK OVERFLOW 

Not enough room available for stack operation in the 
stack. 

STACK UNDERFLOW 

Set stack pointer to FF-js before running the program. 
Memory locations 0100-J6 through 01FF 16 (page one) are 
assigned to the stack. 

INVALID OPCODE 

The operation code is not in the instruction set of 
the 6502 microprocessor. 

INVALID DISPLAY COMMAND 

The display command used is not valid for the KO 65 
system. 

INVALID RANGE LIST 

The range list format is incorrectly typed. 
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TABLE B-1 (Cont.) 

KO 65 Error Message s 

INVALID SET COMMAND 

The set command used is not valid for the KO 65 
system. 

INVALID NUMBER 

The number used for the address or data should be in 
HEX number system. 

CAN'T FIND OBJECT FILE 

The specified object file was not found. This object 
file is previously named in assembly time by the user 
INVALID BCD NUMBER 

The BCD number is not valid. 

CAN'T FIND SYMBOL 

The specified symbol was not found in the Symbol 
Table. 

MAXIMUM MEMORY EXCEEDED TOTAL <^2.5 K> 

The user is attempting to display a memory location 
which is out of the maximum memory range (2.5 K). 
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APPENDIX C 

KO 65 AMD ASM65 PROGRAM LISTING 
C.1 INTRODUCTION 

KO 65 .BAS and ASM.BAS are two software programs writ¬ 
ten in the BASIC-PLUS language and implimented on the PDP- 
11 /34 computer and RSTS/E operating system. 

C.2 PROGRAM LISTING 

Listings for the K065-BAS and ASM.BAS programs are 
contained in the following pages: 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 
1 40 
1 50 
155 
1 60 
165 
1 70 
1 75 
1 80 
18 5 
300 
310 
320 
325 
330 
340 
350 
360 
370 
380 
390 
400 
41 0 
411 
420 
430 
4 40 
450 
460 
470 
480 
4 Q 0 
500 
510 
520 
530 
540 
550 
560 
570 

580 

581 

582 

583 

584 
590 
600 
610 
620 
630 
640 


REM : ** 4 **”******* : ' 4 *** 6502 MNEMONIC ASSEMBLER *♦**♦**»,**♦*** 
REM : WRITTEN IN POP-11 BASIC PLUS. * 

*£m j SYBERTEKrSN^SuCK-kLL?* 31 P ™CESSORS AS MADE BY COMMODORE, 

RFM - THF S5r?2i!In2 Ap D T 2 IR ni^ I XI S ARE IN DUS1RY STANDARD, WITH 
R = ?0* ™ E EXCEPT 1° N THE USE OF • . » FOR CURRENT ADDRESS. 

T9 = 0 
A=0 
L = 0 

PRINT "SOURCE FTLF " ; 

INPUT T$ 

PRINT "OBJECT FT LE 
INPUT HS 

OPEN TS AS FILF «1% 

OPEN "SYT" FOR OUTPUT AS FILE #2% 

OPEN "TEM" f OR OUTPUT AS FILE. #3% 

OPEN H$ FOR OUTPUT AS FILE #4% 

PRINT "ASSEMBLY REGINS.. " 

C= 0 

ON ERROR GOTO 5*91 
T1 =0 
L S = " " 

I S = " " 

MS = M ° 

0 $ = " " 

C$ = * " 

zs = » 

L = L+1 

SEPARATE TOKENS, STORE LABEL ASSIGNMENT 

u J Nr, Mi fS 

I$=CVTSS(I $,4%1 + " " 

T5=C 

IF 1$="" THEN RBO 
P=1 

p g — rt • it 

GOSU8 3970 
IF Pt=0 THEN 510 
IF Pl=l THEN POO 
C S =RlGHT(IS,P11 
IS = LEFT(IS,P1-1 ) 

IF LEFT ( I $ , 1 ) = * " THEN 590 

GOSUB 3790 
LS=PS 

IF LSO" . * THEN 581 
M$="." 

GnSUB 49 a0 

I £ = H H 

GOTO 860 

NS=L$ \ GOSUR 4070 
IF T1 <> 1 THEM c;of) 

PSiS T ^5U LT,P,,F OEFIMTION OF A LABEL IN. LINE ";L 

V» 1 H I I j 0 7 0 

GOSUR 3790 
m$=PS 

IF LEFTCMS ,3)=" WO" THEN 3U0 
IF LEFT(Ms, 3l = N .TF" THEN 3HQ 
IF LEFT(M S# 3):» RY" THEN 3UO 
IF LEFTC U $,3)=".DB" THEN 3110 


THEN 59Q 


THEN 581 
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650 IF MS <> "" THFN *50 
660 CS=LEFT(C$ , 34 1 
670 IF LEN(L’$) <> 0 THEM 700 
6*0 I $ = LEFT(IS , 19 ) 

690 GOTO 820 
700 GOSUR 3790 
710 N$ = P$ 

720 rF LFN(NS) <> o THEN 750 

730 T1 =C 

740 GOTO 780 

750 GOSUR 4070 

760 IF T 4 = 2 THEN R 30 

770 T1=F1 

780 PRINT #2%,LS:\PPINT #2%, USING 

800 Kl=LFN(I$) 

801 X 2 = 5 5 

802 G0SU8 5121 

803 I $=LEFT ( I S , K 4 1 

810 ZS=LEFT(ZS, 161+TS+PIGHT(Z$, 18+LEN ( 1$ ) ) 

820 K1= LEN( I $ ) + 1 9 

821 K2=3* 

822 GOSUR 5121 

823 Kl=K3 

824 K 2 = 7 2 

825 GOSUB 5121 

826 ZS=LEFT(2S,K4-1l+CS 

830 PRINT »3%,Z$:\PPINT * 3%, USING *»##»*•,T5 
840 GOTO 320 

850 IF LEFT (ms, 1)0"." THEN io50 
860 P$="=" 

870 GOSUR 3970 

8 80 IF P1>0 THF.N 910 

890 PRINT "MISSING • = ' IN LINE ";L 

900 GOTO 3090 

910 P = P + 1 

920 GOSUR 3790 

930 IF LEFT(P$ * 11<5"" THEN 960 

940 PR T N T "MISSING ARGUMENT IN LIME ";L 

950 GOTO 3090 

960 N$=?$ 

970 GOSUR 4070 

980 TF T4<>2 THEN jnlO 

990 PRINT "ILLEGAL fORWARO REFERENCE rN LINE ";L 
1000 GOTO 3090 
1010 T1=C 
1020 C=F1 

1030 IF L $ < > " " THF.N 780 
1040 GOTO 800 

1050 RESTORE 

1051 FOR I=L TO 16 

1052 READ KS 

1053 NEXT I 

1060 IF M$r"" THEN 1140 
1070 FOR 1=1 TO 5* 

1080 RFAD TS 

1090 TF TS=M$ THFN 1130 

1100 NEXT I 

1110 PRINT "UNKNOWN OPCODE In line ";l 
t 1 20 GOTO 3090 
1130 0=1 
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1140 IF 0$ = "" THEN 1170 
1150 PRINT 42*,L$;\PPINT * 2 %, USING 
1170 GOSUB 3750 
1 180 nssps 

1190 I$ = LEFT(IS,P-LFN((J$ ) - 2 ) " 1 " +R IGHT ( I S , P - LEN (OS ) ) 

1200 REM*********** FIND ADDRESSING MOOES, LOAD EFFECTIVE ADDRESS ** 

1210 IF 0$<>"" THEN 1240 

1220 M=i 

1230 GOTO 2200 

1240 IF OSO"A" THEN 1270 

1250 m=2 

1260 GOTO 2200 

1270 IF LEFT(OS,1 )<>"#" THEN 1320 

1280 m=3 

1 290 P = PM 

1300 Ns=PIGHT(OS,2l 

1310 GOTO 1870 

1 320 IF LEFTCMS , \ )<>"B" THEN 1460 

1330 if m$=*bit" then ubo 

1 3 40 * = l 2 

1350 ns=Os 

1360 GOSUB 4070 

1370 IF T4<>2 THEN i400 

1 380 A = -20 0 

1 390 GOTO 1970 

t 400 A = F1-C-2 

1410 IF A> = 0 THEN t430 

1420 A=256+A 

1430 IF ABSCF1-C)<=127 THEN 1970 
1 440 PRINT "BRANCH OUT OF RANGE IN LINF ";L 
1450 GOTO 3090 
1460 Ps="(" 

1470 PsP-LEN(OS) 

1480 GOSUB 3970 
1490 P5 = P 1 
1500 P$="," 

1510 GOSUB 3970 
1520 P6=Pt 
t 5 30 P7 = 0 

1540 IF P6 = 0 THEN t *51 0 

1550 TF Mir>CI$,P6 + l , 1 ) 0 ^" THEN 1580 

1560 P7=1 

1570 GOTO 1610 

1580 IF MIDI IS ,P6 + t , l ) = "Y B THEN 1610 

1590 PRINT "BAD ADDRESSING MODE IN LINE ";L 

1600 GOTO 3090 

1610 IF P5<>0 THEN 1780 

1620 GOSUB 3790 

1630 NS=P$ 

1640 IF P6 = 0 OR P7 = 0 THEN 1670 

1650 M=5 

1660 GOTO 1710 

1670 IF P6=0 THEN 1700 

1680 M=6 

1690 GOTO 1710 

1700 M=4 

1710 GOSUB 4070 

1720 A=Fl 

1730 IF T4<>2 THEN 1750 
1740 4=-1000 



1750 TF APS(A)<=25S THEN 1970 

1760 MrM+3 

1770 GOTO 1970 

178.0 GOSUR 3790 

1790 Ns=PlGHT(P$ , 71 . 

1800 IF P6=0 OR P 7 r0 THEN 1830 

1810 *=10 

1820 GOTO 1870 

1830 tF P6~0 THEN ir60 

18 4 0 M =ll 

1850 GOTO 1870 

i860 M=i3 

1870 GOSUB 4070 

1880 A=Fl 

1890 IF CMO10 AMO MOti) OR a<=255 THEN 1920 

1900 PRINT "VALUE TOO LARGE FOR ZERO PAGE IN LINE ";L 

1910 GOTO 3090 

1920 IF T4 <> 2 THFN 1970 

1930 A = -10 0 0 

1940 r F Ms 13 THEN iq70 

1950 A=-200 

1960 RE ************** PRINT OPCODE & EA ON FILE ****** 

1970 IF A> = 0 THEN 2070 

1980 ZS=LEFT(Z$,<n+"** H +RIGHT(Z$,12) 

1990 C = C + t 

2000 IF HOI 2 THEN 2020 

2010 ZS = LEFTCZS,10-) + «R« + RlGHT(ZS,l2) 

2020 w9=a+256 

2030 IF W9>=0 THFN 2200 

2040 ZS=LEFT(ZS, 1 2') + ' , **"+RlGHT(Z$. 15) 

2050 C=C+t 
2060 GOTO 2200 
2070 R = 16 
2080 T = A 
2090 GOSUB 4940 
2100 Ts=AS 
2110 A$="000" 

2 t 20 A $ = l.EFT (AS, 3)*T$ 

213 0 IF C*> = 3 AND w< = 6) OR (M>=10 AND M<=12) THEN 2180 
2140 Z$=LEFT(ZS , 1 2) ♦«ID(AS , LEM ( A $ ) - 3 ,-2 ) + RIGH T C Z $ ,15) 
2150 ZS = LEFTCZ$,9)+RIGHT(A$,LEN(A$)-1)♦RIGHT(ZS, 12) 
2160 C=C+2 
2170 GOTO 2200 

21R0 ZS = LEFT(ZS,9)+PIGHT(A $,LEN CAS)-1)+R IGHT (2$ , 12 ) 

2190 C=C+1 

2200 R=i6 

2210 I = T 5 

2220 GOSUB 4940 

2230 T$ = " 000 " 

2240 TS=LEFT(TS,3)+AS 

2250 ZS = RIGHT(T$,LFM(TS )-3 )+RlGHT(ZS,5) 

2260 RESTORE 

2261 FOR 1=1 TO 72 

2262 READ K$ 

2263 NEXT I 

2270 FOR 1 = 1 TO (0-DM3 + M 

2280 READ TS 

2290 NEXT I 

2300 IF T$<>" H THFN 2370 
2310 TF *>6 OR M<4 THEN 2350 










74 


2320 M=m + 3 
2330 C=T5 
23^0 GHTU 1970 

2350 PRIM "ILLEGAL ADDRESSING NODE IN LINE ";L 
2360 GOTO 3090 

2370 Z$ = LFFT(Z$,6)+TS+RIGHT(z$ ,9) 

2 3*0 Z$ = LEFT(Z$,4'> + ":" + PlGHT(ZS,6) 

2390 C=C+l 

2400 ZS=LEFT(ZS,16)+IS+RIGHT(ZS,18+ LFN(IS)) 

2410 K1 = 19 + LEN( IS 1 

2411 K 2 = 3 8 

2412 GOSUB 5121 

2413 ZS=LEFT(ZS,*3-11♦LEFTCC$,72-K3 ) 

2420 PRINT #3%,ZS;\PRTNT *3%, USING 1 *#*#*',T5 
2430 GOTO 320 

2440 REM****,*#*** SFCONO PASS: RESOLVE FWQ REFERENCES * 
244 1 TE ERROU THfm ON ERROR GOTO 0 
2450 CLOSE #2% 

2460 CLOSE #3% 

2480 L=Q 

2510 ON ERROR GOTO ?870 

2520 OPEN "TEM* FOP INPUT AS FILE 43% 

2530 INPUT LINE «3%,G$ 

2534 I$=LEFT(G$,LFNTGS)-7) 

25 36 T5 = VAL(MT0(G$,r.FN(G$)-6,S) ) 

2537 P=1 
2540 L = L + t 

2550 IF 1$="" THEN 2850 
2560 P$="!" 

2570 GOSUR 3970 

2580 IF P1=0 OP P t = 17 THEN 26t0 
2500 P=P1 

2600 I$ = LEFT( I$,P~n + " " + R IGHT C I S , 9 + t ) 

2610 TE M I D ( I S » 10, i )<>"*'’ THEN 2850 
2620 GOSUB 3790 
2630 N$=PS 

2640 IF LEFTCNS,t)<>"(" THEN 2660 
2650 NS=RIGHT(NS,2) 

2660 GOSUB 4070 

2670 IF T4<>2 THEN 2700 

2680 PRINT "IRRESOLVABLE FwD REF / BAD LA6LE IN LIME ";L 

2690 PRINT "??? H ;TS 

2691 U=1 

2695 GOTO 2530 
2700 t=Fl 

2710 IF MID(lS,n,t)<>"P" THEN 2750 

2720 I=Fl-T5-2 

2730 IF I>=0 THEN 2750 

2740 1=1+256 

2750 R=16 

2760 GOSUB 4940 

2770 TS= A S 

2780 AS = "000 H 

2790 A $ = LEFT CAS,3 ) + TS 

2800 IF M ID ( I s / THEN 2840 

2|10 I$=LEFT(IS,12)+MID(A$,LEN(A$)-J,2)+KIGHT(I$, i 5) 

28 30 G0T0''2850 S ' 9)+PlGHTtAS,LF:N C AS) *’ 1)+RIGHT(IS ' 12) 

2840 IS=LEFT(IS,9)+PtGHT(AS,LENCAS)-n+RIGHT(lS,12) 

2850 I=L 
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2851 

2852 
285 3 

2854 

2855 

2856 
2860 
2870 
28 7 1 
2872 
287 3 
2880 
2881 
2890 
2910 
2920 
2930 
2940 
2950 
295 1 

2952 

2953 
2960 
29^5 
2970 

2980 

2981 

2982 
2990 
3000 
3010 
3020 
30 30 
3040 
3045 
3050 
3060 
3065 
3070 
3080 
3090 
3095 
3101 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 


P= l 0 

GOSUB 4940 
TS="000" 

TS=LEFT(T$,3)+AS 
lS=RrGHT(T$,LEN(T$)-3)+" " + I$ 

PRINT 84,I $ 

GOTO 2530 

IF EPROll THfn ON ERROR GOTO 0 
RESUME 4330 TF FPL=V250 
RESUME 4 3 20 If EPL=U0O 
RESUME 2880 TF £RL=2530 
TF U=1 THEN 5770 
OPEN HS AS FILE #4% 

ON EPPUP GOTO 2 Q 40 
INPUT LINE M?;,IS 
PRINT IS 
GOTO 2910 
RESUME 2950 
PRINT #4% 

PRINT #4% 

PRINT #4%,"SYMR0L TABLE:" \ PRINT *4% 

PRINT: PRINT: PPTNT "SYMBOL TABLE:" 

ON ERROR GOTO 3080 
OPEN "SYT" AS FILE *2% 

FOR 16=1 TO 3 
INPUT LINE *2,OS 
0$=LEFT(G$,LEMfGs)-7) 

T5=VALCMIDCGS,r.FN(GS)-6,5) ) 

R — l 6 
r=T5 

GOSUB 4940 
T$="O00O H 

T$-LEFT(T$,LEM(TS))+ A $ 

£S I J TA 8 C ( T 6-1 )*25t l ) ;o$;TA 8 ( ( 16-1 ) *25 + 1 3 ) ; PIGHT C T$ , LEN C TS ) - 3 ) ; 
NEXT ? I 6 4% ' T f f r6 ** U * 25 + l ) ?a$ ; TA8C(Ib-l)*25+13);RIGHT(T$,LEN(T$) 

PRINT 
PRINT #4* 

GOTO 2970 

CLOSE ¥4%,42% \ GOTO 5770 
PRINT "??? ";I $ 

U= 1 

GOTO 320 

REM***********x*** PROCESS MEMORY LOADS ********************** * 

IF MIDCMS,2,23<>"TE" THEN 3260 
TF 0701 THEN 3190 
GOSUB 3750 
P=P-LENCP$) 

0S = «I0(IS,P,1 ) 

P = Pf 1 

rF P<= 7 2 THFN 3220 

PRINT "BAD ORLT M ITEH IN LINE ";L 
GOTO 3090 

p <j — N * » 

P$ = LEFTCPS s 1)+mID(IS,P, 1)+RIGHT(Ps,3) 

IF MID(P$,2,n=0S THEN 32 O 
GniO 3280 
G0SIJ6 3790 
ZS = " 
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32«0 P=P*1 

32 Q 0 IF LEN(PS)=o then 320 

3300 NS=PS 

3310 COSUe 4070 

3320 IF T4<>2 THF N 3350 

33 30 PRINT- "RAD L A R £ L IN MEMORY ASSIGNMENT OF LINE ";L 

3340 GOTO 3090 

3350 P=!6 

3360 T=F1 

3370 GOSUB 4940 

3380 TS=flS 

3300 4s="000 H 

3400 AS=LEFT(AS,3l+T$ 

3410 IF MIDCNS ,2, DO* 4" l'HEN 3 460 

3420 ZS = LEFT(ZS,9)+MlD(A$,f,ENfA$)-3,2)*RIGHT(Z$,12) 

3 4 30 ZS = LEFT(ZS,6WpJGHTC4s,LEN(a$)-1 ) *P IGH T ( Z S , 9 ) 

3410 C = C *2 
3450 GOTO 3560 

3460 TF vjocms ,2, n = "0" THEN 3530 
3470 IF F1<256 THEM 3500 

3480 PRINT "NUMBER TOO LARGE IN MEMORY ASSIGNMENT OF LINE N ;L 
3490 GOTO 3090 

3 500 ZS = LEFTCZS # 6)+RIGHT(AS ,LEN( A$ )-n+RIGHI (ZS ,0) 

3510 C = C+l 
3520 GOTO 3560 

3530 ZS=LFFT(Z$,6)+mjo(AS,LEN(4$)-3#2)+RIGHT(Z$,9) 

354 0 Z$ = LFFT(Z$,9UPlGHT(A$,LEN(A$)-l)♦RIGHT(ZS, 12) 

3550 C = 01 
3560 I=T5 
3570 P = 1 6 
3580 GOSUB 4940 
359 0 TS="00O" 

3600 TS=LFFT(TS # 3)+AS 

3610 ZS=RIGHT(TS,LFWfTs)-3)+RlGHT(ZS,5) 

3620 ZS = LEFT(ZS,4U":"fRIGHT(ZS ,6) 

36 30 TF 0701 THEN 3700 
3640 IF LENCLS)=0 trfn 3670 

3650 PRINT #2%,L$:\PRTNT <2%, USING »&e#<?**,T5 
3670 ZS = LEFT(ZS,t 63 + IS + RlGHT(zs,18 + LENCIS) ) 

3680 Kl=i9+LEN(fs) 

3681 K 2 = 38 

3682 GOSUB 5121 

3683 K5=K3 

3684 Kl=72-( 19 + LENCTS) ) 

3685 K 2= 38 
368b GOSUB 5121 

368 7 Z$=LEFT(ZS,K5-1 )+ LEFT(Cs,K3 ) 

3690 GOTO 3710 
3700 ZS = L.EFT(ZS , t 5) 

3710 07=0 

3720 PRINT *3%,Z$;\PRINT #3%, USING 

3730 T5=C 

3740 GOTO 3130 

3750 REM ******* ROUTINE TO ISOLATE TOKEN ************ 

3760 REM : STARTS LOOKING FOR TOKEN AT P, PUTS IT IN P$, AND 
3770 REM : UPDATES P. IF ENTERED HERE, STOPS SCAN AT » » 

3780 T9=l 

3790 REM : If ENTERED HERE, STOPS SCAN AT * • ' »)', » = * 

3800 FOR Il=D TO Lfn(TS) 

3810 IF MID(I$,I1,t)<>" " THEN 3830 


3820 NEXT II 
3830 PS="“ 

3840 FOR 12 = I l TO LFN(IS) 

38SO IF MID(I$,l2,n = " H THEN 3920 
3860 IF T9=l THEN 7900 
3870 IF MIDC IS , 12 , n = " , " THEN 3920 
388 0 IF MTDri$,I?,M = ")" THEN 3920 
3890 IF HID(IS,12,1 ) = " = " THEN 3920 
390 0 P$=LEFT(P$ ,l,EM ( PS ) ) *« ID( IS , 12,1 ) 

3910 NEXT 12 
3920 P= I 2 

39 30 TF L E N ( P $ ) < > 0 THEN 3950 
3940 P=Pfl 
3950 T0=o 
3960 RETURN 

3970 RE M ************ FI.MO symbol ROUTINE **** ********* 

3980 PK'M : RETURNS P1=S YMLGC • [F IT IS FOUND, Pl = 0 
3990 PL- : IF SYMBOL NOT FOUND• 

4000 FOR I=P TO LEMfIS) 

4010 IF MIOCTS,I,13=LFFT(P$,1) THEN 4050 

4020 NEXT I 

4030 Pt=0 

4040 PFTURN 

4050 Pl=I 

4060 RETURN 

4070 PE M ************ NUMERIC STRING INTERPRETER ************** 
40R0 REM : SIMPLIFIES STRINGS OF LABELS ANC N U M E PIC EXPRESSIONS 
4090 REM : OF NUMBERS IN ANY RASE, PLUS ASCII CONSTANT. 

4100 F1=0 

4101 W=0 
4110 A $ = *" 

4120 FUR 1=1 TO LENCNS) 

4130 IF «rD(NS,I, 1)="+" THEN 4 I 8 O 
4 t 40 IF miq(N$,I, lTHEN 4610 
4150 IF mjd(N$,I, 1 ) a " ]THEN 4610 
4 160 A S = LEFT(AS,LENfA$) )fMID(N$,I, 1) 

4170 NEXT I 

4180 IF AS<>\" THfn 4 210 
4190 F2=C 
4200 GOTO 4480 

4210 IF LEFT(A$,1)>"Z M THEN 4350 
4220 IF LFFTCAS,!)<"A" THEN 4350 
4230 OPEN "SYT" AS FILE *2% 

4250 INPUT LINE *2*,G$ 

4251 Ts=LEFT(GS,LFNfGS)-7) 

4252 T1=VAL(MI0(GS # LFNCGS)-6,5) ) 

42 6 0 IF TSOAS THFn 4 250 

4270 F2=T1 
4280 T4=3 
4285 Tl=l 

4300 INPUT LINE *7 %,GS 

4301 TS=LEFT(GS,LEN(G$)-7} 

4302 Tl = VAL(MIO(Gs # I.ENCG$)-6,5) ) 

4310 GOTO 4300 

4320 GOTO 4480 
4330 T4 = 2 
4340 RETURN 

4350 IF LEFTCAS,1)<>"THEN 4390 
4360 AS=RIGHT(A$,2) 

4370 GOSUB 4640 
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4380 GOTO 4480 
4390 R=10 

4400 If LBFTCAS, t )<>"%" THEN 4430 

4410 B=2 

4420 GOTO 4450 

4430 IF L£FT(A$,1)<>"$" THEN 4460 
4440 8=16 

4450 AS=RIGHT(AS,21 
4460 GOSUR 4750 
4470 F2=F 

4180 IF W = 2 THEN 4510 
4490 F1=F1+F2 
4500 GOTO 4520 
4510 Fl=Fl-F2 

4520 IF 1>=LEN(N$) THEN 4610 
4530 TS = M 

4540 FOR W=l TO LENfTs) 

4550 IF *TD(T$,W,n = MTDCN$,I,l) THKN 4590 
4560 NEXT w 

4570 PRINT "ILLEGAL OPERATOR rN LINE "; L 
4580 GOTO 3090 
4590 AS="" 

4600 GOTO 4170 
46 t 0 T4 = 0 
4620 RETURN 

4630 REM **** ASCIT CHARACTER TO NUMBER CONVERTER ******* 

4640 F2 = ASC11(AS) 

4650 RETURN 

4750 REM ************ MULTI- RADIX STRING TO NUMBER CONVERTER ****** 
4760 REM : B IS BASF OF NUMBER IN A$, F IS PRODUCT. 

4770 F = 0- 

4780 11=0 

4790 FOR I2=LEN(A$) TO 1 STEP -1 

4800 RESTORE 

4810 FOR N=0 TO R~t 

4820 READ ES 

4830 IF FS=MID(AS,12,1) THEN 4870 
4840 NEXT N 

4850 PRINT "BAD NIIMRtR IN LINE * 7 L 

4860 GOTO 3090 

4870 F = F + N *B“ 11 

4880 11=11+1 

4890 NEXT 12 

4900 RETURN 

4940 REM ********* MULTI-RADIX NUMBER TO STRING CONVERTER ********** 
4950 REM • I IS INPUT NUMBER, R IS BASE THAT AS WILL BE AS PRODUCT. 
4960 A $="" 

4970 T=t 

4980 FOR N=20 TO 0 STEP -l 

4990 IF T/R A N>=1 THFN 5020 

5000 NEXT N 

5010 N=N-1 

5020 0=INT(T/P ~ N 1 

5030 IF 0<=R-1 THEN 5050 

5040 0=0 

5050 T=T-0*R*N 

5060 RESTORE 

5070 FOR S=0 TO 0 

5080 READ TS 

5090 NEXT S 
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5100 
51 10 

5120 

5121 

5122 

5123 

5124 

5125 

5130 

5131 

5132 

5133 

5134 

5135 
51 36 
5137 
5140 
5150 
5160 
5170 
5180 
5 1 90 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5 300 
5310 
5 320 
53 30 
5 340 
5 350 
5 360 
5370 
5380 
5390 
5400 
5410 
541 1 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 


A$=LEFT(AS,LEM ( As))+ T$ • 
IF N > 0 THEN 5010 
RETURN 

IF K1>K2 THEN K 3 = K1 \ K4 

K3=K2 \ K4 = K t 

RETURN 

DATA "0" , "1" , "7" , "3" , "4" 
DATA "E-, H F" 

DATA "ADC","AND","ASL"," 
DATA "BPL","BPK","BVC"," 
DATA "DEC" , "OFX" , "DEX " , •* 
DATA "LDY","LSR","NQP",“ 
DATA "RTS","SRC","SEC",« 
DATA "TXA","TXS", M TYA" 

DATA " " "69","65" 

DATA " ","29","25** 

DATA " " , "06" 

DATA " " , " « f " 

DATA " " 

DATA " " 

DATA " " , " " " M , "24" 

DATA " " 

DATA " " 

DATA " " 

DATA "00"," " 

DATA " " 

DATA " * " " " " " " 

DATA "18"," "I" " 

DATA "D8"," " 

DATA "58"," 

DATA "B8 " , " " " " 

DATA " ","C9","C5" 

DATA " ","E0","E4" 

DATA " M ," ","C0","C4" 

DATA " " C 6" 

DATA "CA"," " 

DATA "88"," " " 

DATA " "• "49","45" 

DATA " " " " ,"E6" 

DATA "E8" , " " , " M , " " 

DATA M C8" , " " , " " , " " 

DATA " " 

DATA " " 

DATA " "," "'"A9","A5" 

DATA " "," " "A2","A6" 

DATA " ","A0","A4" 

DATA " ","4A«," ","46" 

DATA "EA"," 

DATA " " "09","05" 

DATA "48"," " " " 

DATA "08"," " 

DATA "68" , " " , " " , " 

DATA "28"," " 

DATA " ","2A“," ","26" 

DATA " ","6A H " H ,"66" 

DATA "40"," " " 

DATA "60"," " , " " 

DATA " ","E9'*,"E5" 


=K2 \ GOTO 5123 


,"5","6","7","8","9","A","B", 

* MNEMONIC TABLE ************ 
BCC","BCS","BEQ","BIT","BMI", 
BVS","CLC","CLD","CLI","CLV", 
EOK","INC","INX","INY", h JMP", 
ORA","PHA","PHP","PLA","PLP", 
SED","SEI","STA","STX","STY", 


C " , " D 


"BNE" 
"CMP" , 
"JSR" , 
"ROL", 
"TAX" , 


"CPX" 
" LDA " 
"ROR " 
"TAY" 


, "CP 
, "LD 
, "RT 
, "TS 


"18" 
"D8" 
"58" 
"B8 " 


"E8 H 
"C8 " 


" C9 " 
"EO" 
"CO" 

ft m 


«49» 
It It 


C5 " 
" E 4 " 
"C4" 
"C6 " 


"45" 
"E6 " 


: OPCUOE 
75"," 
35" ," 


"05" 

N H 


"55" 

"F6" 


"36" 

"76" 


TABLE 
, M bC M , 
,"2D", 
, " 0 E " , 


" 2 C " , 

n it 


"CD" , 
"EC", 
"CC", 
"CE", 


"4D " , 
"EE" , 

n N 

t 

it h 

"4C" ' 
" 20 ", 
"AD" , 
"AE" , 
"AC", 

" 4E " , 

« * 

"OD" ' 
« * 


"DD " 

h * 
M H 

"DE" 

M ft 
U M 

" 5D " 
"FE " 


"3E" 

"7E H 

« rt 


"79" 

"39" 


"09 " 


"19" 

it tt 


"Dl" 

it H 


"51" 

It H 


"Bl " 

♦t it 


" 11 " 
ft N 


" 90 " 
"BO" 
"FO " 


















5580 

DATA 

"38" , " 

H " 

It •* 
r 


tt 

H 

it 


tt 

If 

ft 


n 0 

M tt 

0 

n 

n 

N 

5590 

DATA 

" F 8 H , " 

ft H 

n n 


0 


•t 


m 

if 

ft 


N M 

m n 

0 

it 

0 

It 

5600 

DA rA 

"78" , " 

M » 

H ft 


0 

M 

tt 


n 

it 

ft 


»f n 

0 H 


H 


ft 

5610 

DATA 

R n H 

m " 

*» it 

85 

it 

^ It 

95” 


•t 

If 

It 

80 

H , " 9 C 

" , "99 

ft 

"8 1 

0 

If 

5620 

DATA 

m m n 

H W 

•t " 

86 

n 

0 

it 


"96 

ft 

It 

8 £ 
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5691 IF ERROll THFN ON ERROR GOTO 0 

5692 RESUME 2440 TF ERI,= U0 

5693 RESIDE 4330 IF ERL=4250 
5695 RESUME 4320 IF £PLs4300 
5770 KlLt."TEM" 

5780 END 


























■ IllIXlpi] 
IIIH lilfill 


M-Ml III! 
'iNihht' 


K K 

Y 4 

K K 

( c 

KK 

r k 

KK 

( r 

KK 

t (. 

KK 

Y K 

K K k K K K 


KKK KM 


KK 

KK 

KK 

Y. a 

KK 

► ( 

K A 

( r 

KK 

> Y 

KK 

K Y 


• II (III 

m i>ii 

Hi lid 

K i nil 

Hi ini 

••I i in 

■n mi 

Hi' ini 

‘II l‘(l 

III llll 

IIIII 'I nil I 

nminno 


l>ii Mi 

<><■ t ( >> 

itn 

n n 

i>inii<i l i<i<i) 

<■ n liiiliriii i* 

!•!> Mi 

■in nii 

i>n r>ii 

i>ii iiii 

rilihl'Ml 
Mi ^nl.li 


bb555555bb 
b5555b5555 
55 
Vi 

5555bbbb 

SSS5SS55 

55 

5b 

55 5b 

b 5 bb 

55 55 

55 bb 

555555 

5555b5 


Iihmu-'.m.h n a n a a k . 5 S';. 5 .s;i 

H'lMUlM'll AAiiHAA 


Kit 

I.W1 

Mil 

HH 

KKMlUMMi 

kki'kkmIvk 

HH 

mi 

mt 

KM 

HKKKKKhH 
C.MH K»*K*m 



A A 

ft i- 

:» ; s :;p 

Ml- 

A A 

A A 

<>•’» s 

ill' 

A A 

A A 


M< 

A A 

A A 



A A A A A A A A A A 

y.ispyy 


AAAAAAAAAA 


KK 

AA 

A A 

,'i/i 

Hi- 

Art 

rt A 


HI- 

A A 

A A 

•>y y.s 

Kli 

A A 

A A 

b.'i 


A A 

A A 

y.syso.j 


A f 

A A 

.sss:;«:> 


t f I ! J ! ! • J ! 4 it a h » n ti «»■????' /????si = s=s = = s = 

I [I !!!![!!***#«»»»*«?????/?'/??====== = === 


l»tl00»tlUUl)O*f M«t ♦ *♦ ♦ ♦ f 1 I J 


• KIK = 11 ‘> tin (Hl-ftl'H-HI AT l/:bi 

rnpv 1 (»K | /UKl.r.TKJ nil K1I.K = y If 

1'Kt‘nwi* rvfi j y thka >• m*K: Kmitunn; 


Ft*h ItSKIt I3S, HI 

: I Jb,H jKOlif. .HAS 


I f 11 ! ! ! ! 5 [ hn »»t h * i 0 « > y ? ? i > { > •> •» 
f I '■>???? / M7? 


»0»<uHMiuOi)*t***M * ♦ UUnmn I I I 

(Miiiii<inn(i0n**4 * ♦«• m ♦♦♦♦**♦ | j j 









82 


30 GOTO 375 

40 G$=SYS(CHRS(6%)+CHR$(-7%)) 

50 DIM L%(2 56 0%) 

55 MAT L%=ZER 

60 PRINT "OBJECT FI(,F "? 

65 ON ERROR GOTO 10840 
70 INPUT QS 

80 OPEN OS FOR INPUT AS FILE «I % 

100 C=0 
110 M2 = 0 

120 INPUT LINE *1%,T$ 

130 IF «ID(IS,7,1)<>" " TrtEN 170 

140 IF INSTR( 1%,T$,"* = **) = 0 THEN 120 

150 M2=l 

160 GOTO 120 

170 IF M2<>1 THEN 210 

180 A $ = M 10(I $,7,4 ) 

190 GOSUB 10450 
200 C = F 

210 ASsMIDCIS,13,2) 

220 GOSUB 10450 
230 L£(C)=F 

240 IF mid(IS,16 # 1)=" " Then 340 
250 C=C+1 

260 AS=MID(1$,16,2) 

270 GOSUB 10450 
280 L*(C)=F 

290 IF MIOCIS,19,1)=" " THEN 340 
300 C=C+l 

310 AS = MIO(I$,19,21 

320 GOSUB 10450 

330 L%CC)=F 

340 M2=0 

350 C=C+1 

360 GOTO 120 

370 CLOSE #1% 

375 C=o;A%=0:x=0:Y=o:s=o:P%ci)=0:P%(2)=o:P%(3)=o:P%C4)=o ; p%(5)=o: 

380 PRINT :PRTNT "n.K." .'PRINT (6 ) =0 j ( 7 ) =0 : Pfo (8 ) =0 

390 OPEN "KB:" AS FILE «2% 

400 INPUT #2%, IS ION ERROR GOTO i08b0 

410 i$=cvtss( is,6%):S4=o:S5=o;T5=o:N2=o 

411 IF I $="CLRCPU" THEN 3/5 

412 IF I$="SPIA" THFN 9700 

414 IF rs = "SlN" THEM T2=l IGOT'J 38 0 

415 IF I$="NOS” THFN T2=0 :GOTO 380 

416 TF LEFT(IS,3) = "TRP” THEN T 3=1 :GOTO 9500 

417 IF I$="NTP" THFN T3=0 :T4 = 0 :GOTO 380 

418 IF IS = "LOA D" THFN RESUME 4O 

420 IF IS="TRA H THfn Tt = l :GOTO 380 

421 IF LEFT(I$,3)s"SET" GOTO 9000 

423 IF LEFTCIS,3)="OrS" GOTO 8000 

424 IF I$= H GO" GOTO 1010 

425 IF I$="EXIT" THEN 30000 

426 IF IS= H NQT H THFN T1=0 :GGTO 380 

429 PRINT CHRS (7) ; "*>? INVALID CUMMAND ?? n 

430 GOTO 380 

1010 N 3 = 0 :I = L%(C) 

1012 IF C=T7 AND T4=0 AND T3=l THEN 380 
1014 IF T4=l ANO T3=i AND L%(T7]=T9 THEN 380 
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1020 GOSUB 10660 
1025 OS = & s 


<> ” 9 ' 


IF LEFT C A $ n = H 4 H 
IF LEFT(AS , 1 ) = H 6 " 
IF LEFT ( A $ # n="8 H 
IF LEFT(AS,t ) = M A M 


1030 TF RIGHTCAS,2l<> N l M THEN IF RIGHT(AS,2)<>"5 H THEN IF RIGHT(AS,2) 

THEN IF R IGHTCAS,2)<>"D" THEN 1900 
1040 IF LEFTCas # n = "0- OR LEFT(A $ , 1 ) =» 1 « THEN 1050 

ELSE IF LEFT(AS,t) = "2" OR LEFT(AS, 1 ) = "3" THEM 1130 

ELSE IF LEFTCAS, n = H 4" UR LEFT ( A S , 1) =" 5 " THEN 1210 

ELSE IF LEFT ( A s , t ) = H 6 " OR l£F‘C(AS,1) = "7" THEN 1290 

ELSE IF LEFT(AS # n="8 H OR LEFT(A$,1)=”9" THEN 1480 

ELSE IF LEFTCAS,t)= M A" OR LEFT(AS,1)s-6 w THEN 1540 

ELSE IF LEFT(A S,1 ) = "C" OR LEFT(AS,1)="D M THEN 1620 

ELSE IF L E F T C A $ , 1 ) = ” E " OR LEFT(AS,1) = »F " THEN 1700 

1050 IF LEFT CAS,1 ) = M 0" THEN io80 
1060 GOSUB 10900 
1070 GOTO 1090 
1080 GOSUB 10950 
1090 GOSUB 10000 

1100 A% = A* OR L%(n tF9=0 ;U=A% 

1110 GOSUB- 11000 
1 120 C=C + 1 

1122 IF T2=l THEN u24 

1123 IF Tl = l THEN t 12H ELSE GOTO 1129 

1124 PRINT "TYPE <BET> FUR SINGLE STEP OR ’ E 1 ANP < RET> FOR TERHlNA 

1125 INPUT ZS TTON 

1126 IF Z$ = "E" Then GOSUB 11100 :GOTO 380 ’ L * Luri 

1127 IF LENCZSJOO THEN 1124 

1128 GOSUB 11100 


!U=A% ;GOTO 4000 

THEN 1240 


1129 GOTO 1010 

1130 IF LEFTCAS , ns*?- THEN t 160 
1140 GOSUB 10900 

1150 GOTO 1170 
1160 GOSUB 10950 
1170 GOSUB 10000 

1180 A % = A % AND L*CF1 :U = A* jGOTO 4000 

1210 IF LEFTCAS , n = "4" THEN 1240 

1220 GOSUB 10900 

1230 GOTO 1250 

1240 GOSUB 10950 

1250 GOSUB 10000 

1260 A%=A% XOR L*(F1 :U = A% :GOTU 4000 

1290 IF LEFTCAS#l) = " 6 H THEN 1320 

1300 GOSUB 10900 

1310 GOTO 1330 

1320 GOSUB 10950 

1330 GOSUB 10000 

1340 IF P%(4)=1 THEN 1390 

1 350 U 1 % = A% : U2%-La; (F) + P%(1 ) 

1 360 A%sA% + L%CP)+P%f t ) :U=:A% 

1 3 70 F9 = 2 : GOSUB UOOO 
1380 GOTO 1120 
1390 I=L%(F) 

1400 GOSUB 10660 
1410 D1=VAL(AS) 

1420 I=A% 

1430 GOSUB 10660 
1440 D2=VALCA$) 

1450 A%=01+D2+P%C1 ) 

1 460 IF A%>99 THp-N p*(l)=t ELSE P% C 1 3 = 0 
1470 IF A %> 7 9 THEN P% C 7) = 1 ElsE P%(7)=0 
1473 AS=NUM1$CA%) :GOSUB 10450 
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t 475 
1480 
t 490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1620 
1630 
1640 
1650 
1 6 b 0 
1670 
1700 
1710 
1720 
1730 
1740 
1750 
1 760 

17 70 
1800 
1810 
1820 
1830 

18 40 
1850 
1360 
1870 
1830 
1885 
1 890 
1R93 
1895 
1900 

1910 

1920 

1930 

1940 

I960 

1970 

1990 

2000 

2010 

2020 

2040 

2050 

2070 

2080 

2100 

2110 

2120 


A% = F :GOTO 1120 

IF LEFT CAS , n = "8" THEM 1510 

GOSUB 10 900 

GOTO 1520 

G0SU8 10950 

GOSUR 10000 

L£(F)=A% :GOTO 1120 

IF LEFT( A$ , n = "A" THEN 1570 

GOSUB 10900 

GOTO 15 H 0 

GOSUB 10950 

GOSUB 10000 

a%=L*CF) :u = a* :goto 4000 

TF LEFT (AS, n="C" then 1650 

GOSUB 10900 

GOTO 1660 

GOSUB 1 0 Q 50 

GOSUR 10000 

D 3 = 256-*L% ( F ) : ii = A% + D3 IGOTU 3440 

IF LEFT(AS,1) = " E " THEN 1730 

GOSUR 10900 

GOTO 1740 

GOSUB 10950 

GOSUR 10000 

IF P%!4)=1 THFN 1800 

03=255-L%(F) :01%=A1 :U2*=03+P*!I) 

A% = D 3 + A% + P% (11 r (1 = A% : GOTO 1370 
T = L % ( F ) 

GOSUB 10660 
01 = VAL (A$ ) 

T = A-% 

GOSUR 10660 
D2-VAL(A$) 

A %= D2 *D 1-I1 ) 

IF A%>99 THEN P^(l) = l ELSE P%(U=0 
IF A % < 0 THEN A%=100 + A% 

IF A%>79 THEN P%(7)=1 ELSE P%C7)=0 

IF A%=0 OR A%=100 THEN p%C2)=l ELSE P%(2)=0 

AS = NUR 1 S(A%1 :GOSUB 10450 

A%=F :GOTO 1120 

IF A SO" A 2 " THFN IF A$<>"A6" THEN IF A$<>"AE" THEN [F ASO"B6 H 

THEN IF A$0"Hfc" THEN 2100 

IF LEFT(AS, 1)="A" THEN 1990 
IF RIGHT(AS,2l="6" THEN i960 
m=9 :M1=2 :GOSUB 10000 
X = L%(F) :U=X : GOTO 4000 
C=C+1 :C1=Y+L%(C) :F=C1 
GOTO 1940 

IF RIGHT(AS,23="2 H THEN 2040 

IF RIGHT!AS,2l="6" THEN 2070 

M=2 :GOSUB lonno 

GOTO 1940 

M=t :GOSUB 10OO0 

GOTO 1940 

m= 3 jGOSUB innoo 

COTU 1940 

IF AS<>"A0” THFN IF A$<>"A4* THEN IF AS<> M AC" THEN IF ASO"B4" 

THEN IF ASO h BC" THEN 2300 

IF LEFT!A$,1)="*" THEN 2190 
IF R T GHT( AS,?} = "C" THEN 2160 
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2130 
2140 
2 t 60 
2170 
2190 
2200 
2210 
2220 
2240 
2250 
2270 
228 0 
2300 
2310 
2320 
2 330 
2 340 
2 350 
2 360 
2 370 
2380 
2 3^0 
2400 
2 4 t 0 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2744 
2760 
2 7 70 


m = 8 :cnsiiB mono 
Y=L%(F) :U=Y lOOTO 4000 
m=9 :mi = i :goshr ioooo 
GOTO 2140 

IF RIGHT(AS, 2 ) = " 0 " THEN 2240 
IF RTGHTC AS , 2)="4" THEN 2270 
m=2 :GOsub mono 
GOTO 2140 

1 SGOSUB 10000 
GOTO 2140 
M=3 :GOSUB 10000 
GOTO 2140 

IF A S = " 1 8 " THFN P%(1)=0 :GOTO 1120 
TF A $ = " D 8 " THFM P%(4)=<) jGOTO 1120 
IF A$="58" THfn P*(3)=0 :GQTO 1120 
IF A$="U8" Thfn P*(6)=0 : GOTO 1 120 
IF A$="F8" THEM P%(4)=1 -GOTO 1120 
IF A $ = " 7 8 " THfm P*(3)=l :GOTO 1120 

IF A$="38" THfm P%(l) = l ;GOTO 1120 
IF A$="£A" THFN 1120 
IF RIGHT ( AS , 210" E 11 THEN IF RIGHTO 
IF A$ = "Ob" THfm m = 3 JGOTO 2b 7 0 

IF A $="OE" THfm m = 2 IGOTO 2670 

IF AS="lb" Thfn m=« IGOTO 2670 
IF A$="1E" THfm M = 9 1*1=1 IGOTO 26‘ 
IF A $ = "46 " THFM M=3 IGOTO 2770 
IF A$="4E" Thfn M=2 IGOTO 2770 
IF A$="56" THFM m = 8 IGOTO 2770 

IF A $="5E" THFM M = 9 JMlrl IGOTO 27‘ 

IF 4 S = "26" THfm Mr 3 IGOTO 28 7 0 

TF A $ ~"2 F" THfm M = 2 IGOTO 2870 

IF A$="36" THFN * = 8 IGOTO 2870 


IF A$="E6 
IF AS="EE 
IF 4S="Fb 
IF A$="FE 
IF A$= M C6 
TF AS-"CE 
TF A$="D6 


IF A$="8E" THFN ms 2 :GOTO 3150 
IF A$ = * 96 " THEN C = C+l ICI=*+L%CC) :L%(C1) = X IGOTO 1120 
REMi << ASL >> 

GOSU8 10000 
E = F 

I=L*(E) 

R=2 IGOSUB 10670 
ES=LEFT(AS , 1) 

AS=RIGHT(AS,2l*"0" 18 = 2 
GOSUB 10500 

P%(1)=VAL(E$) ;IF N3=l THEN a%=F ELSE L%(E)=F 
U = F IGOTO 4000 
REM: << LSR >> 

GOSUB 10000 


Ob" 

thfn 

M = 3 

! GOTO 

2 b 7 0 

OE" 

THFM 

M = 2 

:goto 

267 0 

16" 

thfn 

MsH 

IGOTO 

2670 

IE" 

THFM 

M = 9 

:*l = i 

IGOTO 

46" 

THFM 

M=3 

JGOTO 

2770 

4E" 

thfn 

M = 2 

JGOTO 

2770 

56" 

THfm 

Msg 

JGOTO 

277 0 

5E " 

THFM 

Mrq 

JMlrl 

IGOTO 

26" 

THFM 

Mr3 

‘GOTO 

28 7 0 

2 E " 

THFM 

M = 2 

JGOTO 

2 8 7 0 

36" 

thfn 

* = 8 

GOTO 

2870 

3E " 

THFN 

M s 9 

M 1 = 1 

IGUTU 

66" 

THFM 

M = i 

GOTO 

2970 

6E " 

THFM 

m = 2 

GOTO 

2970 

7 6 11 

THFM 

V = 8 

GOTO 

2970 

7 F " 

thfn 

Mr9 

■81 = 1 

IGOTO 

E6 " 

THFN 

Ms 3 

GOTO 

3070 

EE" 

then 

Ms 2 

GOTO 

3070 

Fb" 

THEN 

Msg 

GOTO 

3070 

FE" 

thfn 

M = Q 

*1=1 

IGOTO 

C6 " 

THFN 

M= 3 

GOTO 

3110 

CE" 

THEM 

Mr2 

GOTO 

3110 

D6 " 

THFN 

M = 8 

GOTO 

3110 

DE" 

thfn 

M = 9 

M 1 = 1 

IGOTO 

86" 

THEM 

Ms 3 

GOTO 

3150 

8E" 

THFN 

ms2 

GOTO 

3150 

96" 

then 

C = C+ 1 

:ct = 

+ L% (< 
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2780 E = F 
2790 I=r,%(F) 

2800 R = 2 : GOSI.I8 10670 
2810 ES = R IGHT (AS , 8 ) 

2820 AS="0"+LEFT(A$,7) :B = 2 
2830 GOSUB 10500 

2840 P%(7}=0 :P%( n=V&[,(ES ) : IF N3=l THEN A%=F £LSF L%(E)=F 
2850 IF F = 2 56 OR F = 0 THEN P% C 2 3 = 1 EL.SE P%(2)=0 
2860 GOTO 1120 
2865 REM: << ROL >> 

2870 GOSUB 10000 
2880 E=F 
2890 T=L%CE) 

2000 R = 2 :GUStiB 1 0670 
2910 E$=LEFT( AS , 1 ) 

2920 AS = PIGHT( AS,2l+Nl|M lS CP%( 1 ) ) : B = 2 
2930 GOSUB 10500 

2940 P%f1)=VAL(ES ) : IF N3=l THEN A% = F ELSE L%CE)=F 

2945 U = F :GOTO 4000 
2960 RFM: << RUR >> 

2970 GOSUB 10000 
2980 E=F 
2990 I=L%(E) 

3000 R = 2 :GlJ5UB 1 0670 
3010 E$ = RIGHT(A$ ,8 ) 

3020 AS = NIJM1$CP%C 11 )+LF.FrCA$,7) :B = 2 
3030 GOSUB 10500 

3040 P%(1)=VAL(ES ) tIF N 3 = 1 THEN A%=F ELSE L%(E)=F 
3045 U=F :GOTO 4rt0n 
3060 REM : << INC >> 

3070 GOSUB 10000 

3080 L%(F)=L%CF)fl ;U=L%(F) ;GOTO 4000 
3100 REM : << DEC >> 

3110 GOSIJB 10000 

3120 L%(F)=L%(F)- 1 : U = L % ( F ) :GOm 4000 
3140 REM: << STX >> 

3150 GOSUB 10000 

3160 L%(F)= X :GOTO 1 l?n 

3170 IF RIGHT (AS ,2K>"0" THEN IF R IGHT ( A S , 2 } < > " C M THEN IF R IGHT ( A $ , 2 ) < > " 

THEN 3840 


3180 

IF 

A S = " 8 4 " 

then 

M=3 

: GOTO 

3490 

3190 

IF 

A$="8C" 

thfm 

m = 2 

:goto 

3490 

3200 

IF 

A $ = " 9 4 " 

THFN 

M = 8 

:goto 

3490 

3210 

IF 

AS= K EO" 

THEN 


:guto 

3420 

3220 

IF 

AS="E4" 

THFN 

M=3 

:goto 

3420 

32 30 

IF 

AS="EC" 

THEM 

M = 2 

: goto 

3420 

3240 

IF 

A $ = "CO" 

THFM 

M= 1 

:Goto 

3450 

3250 

IF 

A $ = "C4" 

THEM 

M = 3 

:gqto 

3 4 50 

3260 

IF 

AS^CC" 

THEN 

M = 2 

:gotq 

3450 

3270 

IF 

A $ = "90" 

then 

3518 



3280 

IF 

AS= M BO M 

then 

3520 



3290 

IF 

AS="FO" 

THEN 

3522 



3300 

IF 

A S = "30 " 

THEN 

3524 



3310 

IF 

A$= H DO M 

THEN 

3526 



3 320 

IF 

A S = N l0" 

THEM 

3528 



3 3 30 

IF 

A S = " 5 0 N 

THFN 

3530 



3340 

IF 

A S = " 7 0 " 

THEN 

35 32 



3350 

IF 

A S = " 2 4 " 

then 

Ms 3 

:goto 

3570 

3 360 

IF 

A S = " 2 C " 

then 

M = 2 

:GOtq 

3570 

3370 

IF 

A $ = "4C" 

THFN 

M = 2 

:gutq 

3640 
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33*0 l F A $ = * 6C" THEN M=tl :GOTO 3640 

3390 IF A$="20 M THrw M=2 SGOTG 3670 

3400 IF A$="60" THEN 3720 

3410 IF A$="40" them 3760 

3412 IF A$="00" THFN 3790 

3420 GOSU-B 10000 

3430 lJ = X-L%(F)+256 

3440 F9=l :G05UB 11000 

3445 GOTO 1120 

3450 GOSUB 10000 / 

3460 U=Y-L%(F)+256 ;G0T0 3440 
34*0 RE*: << STY >> 

3490 GOSUB 10000 

3500 L%(F)=Y :GOTO 1120 

3510 RE*: BRANCH INSTRUCTIONS SET 

3515 C=C*1 :GOTO t120 

3518 IF P%(1)=0 then 3535 ELSE 3515 

3520 IF P%fl)=l THEN 3535 ELSE 3515 

3522 TF P%(2) = 1 THEN 3535 ELSE 3515 

3524 IF P%(7)=1 THFN 3535 ELSE 3515 

3526 IF P%(2)= 0 THFN 3535 ELSE 3515 

352* IF P%(7) = 0 THEN 3535 ELSE 35 t 5 

3530. IF P% (6 ) = 0 THFN 3535 ELSE 3515 

3532 IF P%(6)=i THEN 3535 ELSE 3515 

3535 C3=C+1 

3538 C=C3 + 1+L% CC3) 

3540 IF L*(C3)>127 THEN C=C-25b :GOTO U22 
3550 GOTO 1122 
3560 REM: << BIT >> 

3570 GOSUB 10000 
3580 U=A% AND L%(F) 

3590 IF U = 0 THEN P% C 2 3 =1 ELSE P%(2)=0 

3600 IF CL%(F)>=64 and L%CF)<=127) OR (L%(F}>=192 AND L%(F)<=255) THE 

P % ( 6 ) — 1 ELSE P%(6)=0 

3610 IF L%(F)>=128 AND L%(F)<=255 THEN P%(7)=1 ELSE P%(7)=0 
3620 GOTO 1120 
3630 REM: << JMP >> 

3640 GOSUB 10000 
3650 C=F :GOTO 1122 
3660 REM: << JSR >> 

3670 GOSUB 10000 

36*0 S2=256+S :L^(S?)=C :C = F ;S=S-2 
3690 IF S>=0 THEN 1122 

3700 PRINT CHRSC7);"?? STACK OVERFLOW ??" jGOTO 380 
3710 REM : << RTS >> 

3720 S=S+2 

3730 IF S<=255 THEN 3740 

3735 PRINT CHR$ (7 ) ; •*?? STACK UNDERFLOW ??" :GOTO 380 
3740 S2=256+S :C=L%fS2) :GOTO 1120 
3750 REM : << RTI >> 

3760 GOSUB 11300 

3762 IF S4 = l THEM 3735 

3764 S = S + 2 :IF S>255 THEN 3735 

3768 S2=256+S :C=L%fS2) :OUTo 1122 

3770 GOTO 3720 

3780 REM: << BRK >> 

3790 S2=256+S :L%(S?)=C :S=S-2 
3800 IF S>=0 THEN 3820 
3810 GOTO 3700 
3820 GOSUB 11390 
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3825 IF S5=1 THEN 3700 
3830 P%(5) = 1 :P% r 3) = J 


3840 

IF 

A S = " C A " 

THEN 

3990 




3850 

IF 

A$= "88 M 

then 

40 20 




3860 

IF 

A$ = *E8 H 

then 

.40 30 




3870 

I F 

AS="C8" 

then 

4040 




3880 

IF 

A$="48" 

thfn 

4060 




3890 

IF 

A$ = M 08 H 

THEN 

4090 




3900 

IF 

AS="68" 

then 

4110 




3910 

IF 

A$="28 H 

then 

4140 




3920 

IF 

AS="AA" 

THEM 

4 170 




3930 

IF 

A S—"A 8" 

them 

4 1 HO 




3940 

IF 

AS=*BA" 

then 

4 190 




3950 

IF 

A S = ” 8 A " 

THEN 

4200 




3960 

IF 

AS="9A" 

thfn 

4210 




3970 

IF 

A S = " 9 9 " 

thfn 

4220 




3972 

IF 

AS = "OA H 

then 

I = A% 

: n 3=1 

: GOTO 

2700 

3974 

IF 

A$="4A" 

then 

I = A% 

:n3=i 

:GOTo 

2800 

3976 

IF 

A$= M 2A H 

them 

I = A% 

:n 3 = 1 

: GOTO 

2900 

3978 

IF 

A'S= H 6A " 

then 

I = A% 

: N 3 = 1 

:GOTO 

3000 


3979 PRINT CHPS(7);"?? INVALID OP CODE ??" :G01C 380 
39K0 REM: << DEX DEY IMX INY >> 

3990 X=X-i :U=X 

4000 F9=0 5GOSU6 11000 

4010 GOTO 1120 

4020 Y = Y-t :U=Y :GOTO 4000 

4030 X=X+1 :U=X :GOTO 4000 

4040 Y = Y +1 :U = Y :GOTO 4000 

4050 REM; << PHA PHP PLA PLP >> 

4060 S2-256+S :LSrs?l=A% :S=S-1 

4070 C = C+1 IGOTO 3A00 

4090 GOSUB 11390 

4095 IF S5=l THEN 3700 

4100 GOTO 1120 

41 10 S = S + 1 

4120 IF S>255 THEN PRINT CHK$(7); H ?? STACK UNDERFLOW ??** 

4130 S2=25o+S :A%=L%fS2) :U=A% :GOTO 4000 

4140 GOSUB 11300 

4145 IF S4 = l THEN 3735 

4150 GOTO 1120 

4160 REM: << TAX , T A Y , TXA , TYA , TSX , TXS >> 

4170 X=A% :U=X :GOTO 4000 

4180 Y=A% :U=Y :GOTO 4000 

4190 x=s :u=x :GOTn 4000 

4200 A% = X :U = A% :GOTO 4000 
4210 S=X :GOTO 11?0 
4220 A%=Y :U=A% :GOTD 4000 


8000 IF MID(J$,4,33 = " M EM " THEN 8030 
8005IFMID(IS,4,33="PIA" THEN 8450 
8010 IF MID(IS,4,3l="REG H THEN 8400 
8015 IF MID(IS,4,3}="SYM" THEN 8420 

8020 PRINT CHR$(7)*"?? INVALID DTSPEAY COMMAND ??" :GOTO 
8030 IF MID (IS,7,1)<> M $ M THEN 8125 
8040 I1=INSTR(1%,Ts,"T m ) 

8050 IF IlOO THEN 8120 
8060 AS=RIGHT(IS,8) 

8070 GOSUB 10450 

8080 AS^OOC+AS !PRINT " S " + R IGHT C A $ , LEN ( A S ) - 3 ) ? 

8090 I=L%(F) 

8100 GOSUB 10660 


: GOTO 


380 


380 
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8110 
8120 
8125 
8130 
8140 
8150 
8160 
8170 
8175 
8180 
8185 
8190 
8200 
82 10 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8200 
8 300 
8310 
8 320 
8 3 30 
8340 
8350 
8360 
8370 
8380 
8 390 
8395 
8400 
8410 
8420 
8430 
8450 
8460 
8470 
8480 
3490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 


PRINT " " + A $ tGHTO 3d0 

If I 1 08 THEM R1 30 ‘ s n 

PRINT CHRSC7);"?? INVALID RANGE LIST ??" :GOTO 380 
AS=MID(TS,8,11-8) 

GOSUB 10450 

A S = " 0 0 0 " + A $ : PRINT ’*S H +RI'oHTCA$,[ J ENCAS)-3); 

R i = F 

AS=RXGHT(IS,Il+3) 

GOSUb 10450 
P2 = F 

IF R l>R2 GOTO 8125 
A$=MID(IS,11-1,1) 

GOSUB 10450 
12=15-F 

IF CR2-P1) <= I 2 THEN 
FOR 13 = P1 TO 12 + Rt 
I = L%(I 3) 

GOSUb 10660 
PRINT " "+A$; 

NEXT 13 
PRINT 

R 1 = I 3 ♦ 1 :12= t s 
IF CR2-P1•1) = 0 THEN 380 
I = R1 

GOSUB 10660 
AS="00O"+AS :PPTNT M $ 

IF (P2-R1-1)>=15 THEN 
FOR I4=R1 TO 97 


8350 


♦right (as,lfn(As)"3j; 
8 2 30 


AS 


AS 


A S 


I =L% CI 4) 

GOSUB 10660 
PRINT " "♦•AS; 

NEXT 14 
GOTO 380 
GOSUB 11100 
GOTO 380 

T5=l :G0SU8 11460 
GOTO 380 

T=L%(2555%):R=?:GOSUB 10670 
PRINT:PRINT "PORT A":PRINl 
PRINT "CRA (CONTROL REG A) 

I=L%(2556%):GOSUB 10670 
PRINT "ORA (OUTPUT REG A) : 

I=L%(2557%):G0SUB I0o70 
PRINT " DDR A (DATA DIRECT[ON RhG A) 
I=L%(2558%)JGOSUB I0o70 
PRINT5PRINT "PORT 8“SPRINT 
PRINT "CRB (CONTROL REG 8) 

I=L%(2559%):G0SUB I0o70 
PRINT "ORB (OUTPUT REG B) 

I = L%(2560%) JGOSIIB 10670 
PRINT "OORB (DATA DIRECTION REG B) 

GOTO 380 

REM : << SET COMMAND >> 

REM 

N1=INSTR(1%,Is,"PC")+4 ;lF Nl=4 THEN 9040 
GOSUB 11630 
C = F :N 2=1 

Nl=INSTR(l%,Is,"SP*;+4 ;IF Nl=4 THEN 9070 
GOSUB 11630 
S=F :N2=1 


; A$ 
AS 


AS 
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9070 N1=INSTR(1%,T$, "A=" ) *3 :IF Nl=3 THEN 9100 
9080 GOSUB 11630 
9090 A % = F :H2=1 

9100 Nt=INSTP(1%,Is,"X")>3 :IF *M = 3 THEN 9130 
9110 GOSUB 11630 
9120 X = P SN2 = 1 

9130 N1=INSTR(1%,IS"Y")+3 :IF Nl=3 THEN 9160 
9140 GOSUB 11630 
9lSO Y = E :GOTO 380 

9160 IF N2<>1 THEN PRINT CHRs(7);*?? INVALID SET COMMAND ??« 

9170 GOTO 380 

9500 REM j<< TRPS >> 

9510 I8=INSTR(l%,jt$," = ") 

9520 rF 18 = 0 THEN TB=LEN(I $) + 1 :GOTU 9560 
9530 IF MID(IS,I« + 1 , 1 )<>"$'• THEM 8125 
9540 T4=l :AS=RIGHTrTS,l8+2) jGUSUB 10450 
9550 T9=F 

9560 IF MTD(I$,4,n = "S" THEN AS = MI 0CI $ , 5,I 8 - 5) •GOTO 9590 

9570 M$ = M ID( I $,4,IR-4 ) :GUSU8 11460 

9580 GOTO 380 

9590 GOSUB 10450 

9600 T7=F :GOTO 380 

9700 PRINT "PORT A":PRINT"-"SPRINT N CRA w ; 

9710 INPUT A$:IF A$ = "" THEN 9730 
9720 GOSUB 10450:L% ( 2555%)=F 
9730 PRINT "ORA "; 

9740 INPUT AS:IF A$="" THEN 97bO 
9750 GOSUB 10450:L%(2556%)=F 
9760 PRINT "DORA 

9770 INPUT AS:IF As = "" THEN 9790 
9780 GOSUB 10450;Ls ( 2557%)=F 

9790 PRINT "PORT B-jPRTNT"------"SPRINT "CRB 

9800 INPUT ASlIF A$="" THEN 9820 
9810 GOSUB 10450:L^f2558%J=F 
9820 PRINT "ORB "? 

9830 INPUT A$:IF A$="" THEN 9850 
9840 GOSUB 10450: L%f 2559%J=F 
9850 PRINT "DDRb 

9860 INPUT AS:IF As=" M THEN 98$0 
9870 G0SU8 1 0450 : t.% ( 2560% ) =F 
9880 GOTO 380 

10000 REM: ADDRESS SELECTING 
10100 C=C+1 

10110 IF «<>2 AND M<>9 AND Moil THEN 10240 
10120 I=L%(C) 

10130 GOSUB 10660 
10140 BS=AS 
10150 C=C+1 
10160 I=L%(C) 

10170 GOSUB 10660 
10180 AS=A$+BS 
10190 GOSUB 10450 

10200 IF Ms 11 THEN ci=F SGOTO 10290 

10210 IF Ms 2 THEN 10410 

10220 IF Ml=l THEN f = F + X :GOTO 10410 

10230 F = F* Y :GOTO 10410 

10240 IF M<>1 THEN 1O270 

10250 F=C JGOTO 10410 

10270 IF M=3 OR M=7 THEN 10390 ELSE Ci=X+L%(C) 

10280 IF M=8 THEN f=C1 sGOTU 10410 
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10290 I=L%CC1) 

10300 GOSUB 10660 
10310 B$=A$ 

10320 C1=C1+1 
10330 I=L%(C1) 

10340 GOSUB 10660 
10350 AS=A$+B$ 

10360 GOSUB 10450 

10370 IF M = 7 THEN f = F + Y :GOTQ 10410 
10380 GOTO 10410 
10390 Cl=L%(C) 

10400 IF n= 7 THEN 1O290 ELSE F=Cl 
10410 RETUPN 

10420 DATA ","2 H ,"3","4’ , /"5‘ < ,"6 H ,"7*, ,, 8 H , ,, 9", H A 

10440 REM : STRING TO NUMBER CONVERTOR AS -> F 

10450 B=16 
10500 F = 0 
10510 15=0 

10520 FOR I6=LEN(A$) TO 1 STEP -1 

10530 RESTORE 

10540 FOR N=0 TO 8-1 

10550 READ F$ 

10560 IF FS=MID(AS,I6,1) THEN 10580 
10570 NEXT N 

10575 PRINT CHR$(7);"?? INVALID NUMBER ??" :GOTO 380 

10580 F=F+N*6“I5 

10590 15=15+1 

10600 NEXT 16 

10610 RETURN 

10650 REM : NUMREp TO STRING CONVERTOR I ---> AS 
10660 R=16 
10670 A $ = M " 

10680 T=I 

10685 IF T<0 THEN T=T+256 

10690 FOR N=20 TO 0 STEF -1 

10700 IF T/R-N>=1 THEN 10730 

10710 NEXT N 

10720 NsN-1 

10730 0= I NT (T/P*N ) 

10740 IF Q<=R-1 THEM 10760 

10750 Q=0 

10760 T = T-0*R , 'N 

10770 RESTORE 

10780 FOR Sl=0 TO 0 

10790 READ T$ 

10800 NEXT SI 



10810 A$=A$+T$ 

10820 IF N>0 THEN 1O720 10 

10821 IF (I = C OR I rR 1 OR t = T7) AND IOX AND IOY AND I<>A% AND IOS THEN 

10822 IF R = 2 THEN As="0000000 H + AS :A$ = RIGHT(AS.LEN(A $ )-7) sGOTO 10830 

10823 IF LEN(AS)>=3 THEN A$=RrGHT(AS,LENCAS)-1) 

10825 IF I<ib THEN AS^C+AS 


10830 RETURN 


10840 IF ERR=ll THEN RESUME 37 O 
10845 IF ERP<>5 THEN ON ERROR GOTO 0 

10850 PRINT CHRSC71?"?? CAN’T FIND OBJECT FILE ?? M :RESUME 380 
10860 IF (ERR=11 Awn T5=l) Op ERR=28 THEN RESUME 380 

10870-IF EPR=5 THEN PRINT CHr$(7);"?? DOES NOT EXIST ??":RESUME 380 
10880 IF E R P = 5 5 OR ERP=51 THEN 10890 

1088 3 IF ERR = 52 THEN PRINT CHRS(7};"?? INVALID 8CD NUMBER ??": GOTO 380 
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10885 IF ERR=11 ANp T5 = 0 THEN PRINT CHR$(7); M ?? CAN'T FIND SYMBOL ??" 

:RESUME 380 

10888 ON ERROR GOTO O 

10890 PRINT CHRSf7); M ?? MAXIMUM MEMORY EXCEEDED TOT A I, <2,5K> ??" : REStJM E 38 

10900 IE RIGHTCAS, 2 1 = H l " THEN M = 7 :GntO 10940 

10910 IE RIGHTCAS,2)="5" THEN M = 8 :GOTO 10940 

10920 IE RIGHTCAS,?} = * , 9 M THEN M = 9 JM1=2 :G0T0 10940 

10930 m=9 :M1=1 

10940 RETURN 

10950 IE RIGHTCAS,21 = "l" THEM M = 6 :GOTO 10990 

10960 IE RIGHTCAS,2) = "5" THEN M=3 :GOTU 10990 

10970 IE RIGHTCAS ,?1 = "9" I’HEN M = l :GfJTO 10990 

10980 M=2 
10990 RETURN 

11000 IE U<0 THEN U=U+256 

1 1005 IE U = 256 GR IJ = Q THEN P%(2) = 1 ELSE P%C2) = 0 
11010 IE U> 127 AND U<=255 THEN P%C7) = 1 ELSE P%C7)=0 
11020 IF E9=0 THEN 11070 

11030 IF U>255 THEN P%(1)=1 ELSE P%(1)=0 
11040 IF E9=1 THEN 11070 

1 1050 U1 % = U1 % AND 127% :U2% = IJ2% AND 127% :U3% = U1% + U2% 

1 1055 IE U3%>127 THEN P%(8) = 1 ELSE P%C8) = 0 
11060 P%(61=P%Cn XOR P%CB) 

11070 RETURN 

U100 REM; DISPLAY REGISTERS AND STATUS REG. 

imo i=a% 

11120 GOSIJB 10660 
11130 W$= M $"+AS :I=X 
11140 GOSUB 10660 
11150 X $="$"+A $ :I = Y 
11160 GOSUB 10660 
11170 Y$="$"+A$ :I=C 
11180 GOSUB 106fa0 . 

11190 A $=:" 000 " ♦ AS :c$="s"+RIghtcas,Lencas)- 3) :x = s 
1 1200 GOSIJB 10660 
11210 SS = " S"+AS 

1 1220 PS = NUM $ C P% ( 7 1 1+NUm$(P%( 6) )+NUMs(P%(5))+NUMS(P%(4) )+MUMS(P%(3) )+NUMS 

11230 PRINT "OP ";0$? m : P [S V B D I Z CJ *;PS (P^(2)) +NUM$ (¥% ( 1 ) ) 

11240 PRINT "A", "X" , "Y" ,"SP","PC" 

11250 PRINT WS,XS,YS,SS,CS 
11260 RETURN 

1 1290 REM: P <-STACK 

1 1 300 S=S♦ 1 

11310 IF S>255 THEN S4=l :GOTO 11370 
11320 S2=25fa+S 

1 1 330 I = L% CS2) :R = 2 :GOSUB 10670 
11340 FUR S3=7 TO l STEP “1 
1 1 350 P%(S3) = VALCMID(AS,9-S3,l ) ) 

1 1 36 0 NEXT S3 
11370 RETURN 

1 1380 REM: P-> STACK 

11390 S2=25fa+S 

1 1 400 AS=NUM1S(P%C7))+NUMls(P%C6) H-NUM1SCP%C5)J+HUM1S(P%(4) )+NUM 1 $(P%(3 ) ) + 

NUMisCP%C2))+NUMlSCP%(1)) :B=2 

11410 GOSUB 10500 
11420 L%(S2)=F :S=S-1 
l1430 IF S>=0 THEN 11450 
1 1440 S5= t 
11450 RETURN 
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11460 RF.M : << SEARCHING FOR SYMBOLS >> 

11470 OPFN "SYT" FOR INPUT AS FILE *2% 

11480 FOR 16=1 TO 3 
1 1490 INPUT LINE s 7% ,G$ 

11500 Z$ = LEFT(GS,LEw(GS)-7 ) 

11510 T7=VAL(MIDfGs,LENCGS)-6,5)) 

11520 IF TSOI THEN 11560 
11530 I=T7 :GOSUR 10660 

1 1540 TS="0000"+A$ ; TS = P IGHT ( T $ , LEN ( T $ ) - 3 ) ^ 

1 1550 PRINT TABU Ifi-l )*25+n?ZS;TAB((I6-l)*25 + 13);T$; 

11560 IF ZS = M$ AND T5<>1 THEN 11600 

11570 NEXT 16 

11580 PRINT 

11590 GOTO 11480 

11600 CLOSE #2% 

11605 AS=M$ 

11610 RETURN 

11620 REM : << SET CQ mm AnD >> 

1 1 630 FOR 19sN 1 TO LFN(I$) 

11640 IF MI0(I$,I9,1>="•" THEN 11670 
11650 NEXT 19 

1 1660 IF RIGHTCIS # LEN ( I S 1 )<>**, THEN 9160 
11670 AS=MID(IS,N1,I9-Nt) 

11680 GOSIJB 10450 
11690 RETURN 
30000 end 
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